Fórum Validação de campo data #208210
21/01/2004
0
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
Curtir tópico
+ 0
Responder
Posts
21/01/2004
Ilan
a onde vc colocou a mascara
Responder
Gostei + 0
21/01/2004
Rômulo Barros
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
Responder
Gostei + 0
21/01/2004
Rômulo Barros
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)