date correta
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
Curtidas 0
Respostas
Jc_analista
30/08/2004
tenta assim
try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;
try
strtodate(edit1.text);
except
showmessage(´data invalida´);
end;
GOSTEI 0
Everton Tom
30/08/2004
Muito Obrigado pela sua atenção!
mais eu coloco aonde?
mais eu coloco aonde?
GOSTEI 0
Motta
30/08/2004
ponha no evento on exit
procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
...
end;
GOSTEI 0