Tenta assim
try
StrToDate(Edt_Data.text);
except
on EConvertError do
begin
Mensagem ('A Data Informada é Inválida !');
Edt_Data.SetFocus;
end
end;
[]'s
Gilson
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Ravelli
Enviada em: terça-feira, 12 de dezembro de 2006 15:31
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificador de datas
Tenho alguns cadastros com campos data para o usuário preencher, gostaria de
saber como eu posso fazer um verificador de datas para ver se usuário não
digitou uma data errada, como por exemplo: 18/20/2000.
Obrigado.
Ricardo Ravelli.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.16/582 - Release Date: 11/12/2006
16:32
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.16/582 - Release Date: 11/12/2006
16:32
