Dúvida em validação de Datas
Pessoal se eu tenho um campo do tipo Data, se eu coloco uma data inválida nele, ele vai dar erro automaticamente, e eu terei que tratar o erro? Ou ele não reconhece data inválida, e eu terei que ´analisar´ pra ver se é data inválida, e só depois validar?? E se eu ter que validar, qual o melhor código pra validação??
Obrigado
Rafaela
Obrigado
Rafaela
Rafaela
Curtidas 0
Respostas
Rodrigo Bergmann
26/08/2003
Vai dar erro automaticamente.
GOSTEI 0
Rafaela
26/08/2003
E como posso validar??
GOSTEI 0
Rafaelunp
26/08/2003
E como posso validar??
Seguinte:
Eu, com minha pouca experiência (Até que estou melhorando) faria assim:
Colocaria um campo MaskEdit, com a mascara da data.
Na hora de processar a data para a consulta faria:
MaskEdit1.Text := FormatDateTime(´dd/mm/yyyy´, MaskEdit1.Text );
Mais ou menos isso...
deu pra entender?
GOSTEI 0
Mmtoor
26/08/2003
Vejo que tem problemas com datas mesmo.
Faça assim:
try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
Espero ter ajudado.
MMTOOR2003
Faça assim:
try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
Espero ter ajudado.
MMTOOR2003
GOSTEI 0
Torres Delphi
26/08/2003
Use o codigo abaixo:
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
StrToDate(MaskEdit1.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end;
Este codigo e outros exemplos estao no site do Clube Delphi, na pagina principal, menu a esquerda, link ´Dicas & Macetes´. La vc encontra muitas outras coisas, vale a pena conferir.
Explore tambem os outros itens do menu.
[]´s
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
StrToDate(MaskEdit1.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end;
Este codigo e outros exemplos estao no site do Clube Delphi, na pagina principal, menu a esquerda, link ´Dicas & Macetes´. La vc encontra muitas outras coisas, vale a pena conferir.
Explore tambem os outros itens do menu.
[]´s
GOSTEI 0