Validação de campo data.

Delphi

21/01/2004

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


Mariana

Mariana

Curtidas 0

Respostas

Nigro

Nigro

21/01/2004

o problema é que tem um espaço depois do número um referente ao dia, assim dá erro mesmo, mas acho que se digitar 1/ 1/04, o erro não ocorre, confira...
Note que o espaço está antes do algarismo.


GOSTEI 0
Mariana

Mariana

21/01/2004

Ola...

Mas acontece que o usuário não sabe disso.
Vou ter que fazer uma validação para apareceu uma mensagem do sistema, e não um erro do Delphi.

Grata

Mariana


GOSTEI 0
Nigro

Nigro

21/01/2004

Desculpe
Coloque um Try
Try
Edit1.Text := FormatDateTime(´DD/MM/YYY´, Table1Campo.AsDateTime);
Except
ShowMessage(´Mano... Corrija a data... Tenha dó!´);


GOSTEI 0
Nigro

Nigro

21/01/2004

Desculpe
Coloque um Try
Try
Edit1.Text := FormatDateTime(´DD/MM/YYY´, Table1Campo.AsDateTime);
Except
ShowMessage(´Mano... Corrija a data... Tenha dó!´);
end;


GOSTEI 0
Paulo_amorim

Paulo_amorim

21/01/2004

Olá

Desculpe Coloque um Try Try Edit1.Text := FormatDateTime(´DD/MM/YYY´, Table1Campo.AsDateTime); Except ShowMessage(´Mano... Corrija a data... Tenha dó!´);



Nigro, o erro que causaria o Exception esta na parte ´Table1Campo.AsDateTime´ , pois o resto ele ja esta corrigindo com o FormatDateTime
entao, eh mais facil prevenir e nao deixar causar essa exception, fazendo com que o usuario digite corretamente ANTES de inserir no banco, não?

Até+


GOSTEI 0
POSTAR