date correta

30/08/2004

opaa bom dia!! primeira mente agradeço a todos
que entraram neste tópico com a intensão de mu ajudar!
amigos tenho um campo com data ok!! editado no editmask
tudo certinhu!! mais tem uma coisa quando por exemplo
eu coloco mês 15!! ele vai dar eero logico!! n existe mês 15
só q eu queria q apareçesse em um showmessage alguma coisa assim
dizendo ´sua data esta incorreta´ alguem sabe me ajudar!!
Obrigado pela atenção agurado resposta!!


Everton Tom

Respostas

30/08/2004

Jc_analista

tenta assim

try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;


Responder Citar

30/08/2004

Everton Tom

Muito Obrigado pela sua atenção!
mais eu coloco aonde?


Responder Citar

30/08/2004

Motta

ponha no evento on exit


procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;


Responder Citar