Validação de campo data
Amigos...
Estou usando um o DBEdit associado a um campo data da minha tabela.
Coloquei as máscaras e funcionou legal.
Só que se o usuário não digitar corretamente, ou seja, se digitar 1 /01/2004 , por exemplo, fica aparecendo a mensagem que não é uma data válida.
Alguém sabe como posso fazer uma validação para isto?
Desde já agradeço
Mariana
Estou usando um o DBEdit associado a um campo data da minha tabela.
Coloquei as máscaras e funcionou legal.
Só que se o usuário não digitar corretamente, ou seja, se digitar 1 /01/2004 , por exemplo, fica aparecendo a mensagem que não é uma data válida.
Alguém sabe como posso fazer uma validação para isto?
Desde já agradeço
Mariana
Mariana
Curtidas 0
Respostas
Ilan
21/01/2004
a onde vc colocou a mascara
GOSTEI 0
Rômulo Barros
21/01/2004
No evento OnExit do Dbedit Faça:
Também poderá ser inserido o mesmo código acimo no evento o Validate do seu Field
Var
Teste : TDateTime;
Begin
Try
Teste := StrToDate(DBEdit.Test);
Except
On EConverError Do
Begin
Messagedlg(´Data Inválida´,mtError,[mbOk],0);
DBEdit.SetFocus;
End;
End;
End;
Também poderá ser inserido o mesmo código acimo no evento o Validate do seu Field
GOSTEI 0
Rômulo Barros
21/01/2004
Ops:
Var
Teste : TDateTime;
Begin
Try
Teste := StrToDate(DBEdit.Test);
Except
On EConver[color=red:99d9fd7dd5]t[/color:99d9fd7dd5]Error Do
Begin
Messagedlg(´Data Inválida´,mtError,[mbOk],0);
DBEdit.SetFocus;
End;
End;
End;
Var
Teste : TDateTime;
Begin
Try
Teste := StrToDate(DBEdit.Test);
Except
On EConver[color=red:99d9fd7dd5]t[/color:99d9fd7dd5]Error Do
Begin
Messagedlg(´Data Inválida´,mtError,[mbOk],0);
DBEdit.SetFocus;
End;
End;
End;
GOSTEI 0