Validar Data!!

Question

Pessoal como eu fa�o para validar a data??? Tentei com as 800 do delphi mas nenhum funcionou.... Alguem ai tem um legal que funcione legal??  :cry:  Obrigado......

Japa · Answer

Amigos Tentei validar assim mas ele da o erro antes de conseguir manipular ele:

try StrToDate(Edit1.Text); except on EConvertError do ShowMessage (�Data Inv�lida!�); end;

Alguem pode me ajudar??? por favor :cry:

Delphiman · Answer

E ai blz,Japa trabalhar com data � algo realmente complicado em nosso dia a dia eu para resolver meus problemas com isso costumo usar componentes pr�prios para datas como o TDateTime(RxLib) e o TDateTimePicker(Win32), mas para uma solu��o que pode ajudar em muito existe a strtoDateDef, quando da erro vc configura uma data Default que pode ser seu sinal de erro ou um valor adotado apenas para n�o parar a rotina.Exemplo:...var data : TDateTime;...  Data := StrToDateDef(Edit1.Text, strtodate(�01/01/1800�));  if FormatDateTime(�dd/MM/yyyy�, data) = �01/01/1800� then  begin    ShowMessage(�Data inv�lida!�);    Exit;  end;...

Echoesofpinkfloyd · Answer

ou coloque no evento Onexit do Tmaskdit (suponho que vc o eteja usando):

var d: variant;
begin
if data.text=� / / � then exit;
try
d:=strtodate(data.text);
except
showmessage(�Data invalida�);
data.setfocus;
end;

Japa · Answer

Obrigado amigos... Agrade�o muito a ajuda de vc�s...  :D...

F�rum Validar Data!! #183279