date correta
30/08/2004
0
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!!
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
Curtir tópico
+ 0
Responder
Posts
30/08/2004
Jc_analista
tenta assim
try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;
try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;
Responder
30/08/2004
Motta
ponha no evento on exit
procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)