Validar Data!!
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
Curtidas 0
Respostas
Japa
20/09/2003
Amigos Tentei validar assim mas ele da o erro antes de conseguir manipular ele:
Alguem pode me ajudar??? por favor :cry:
try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
Alguem pode me ajudar??? por favor :cry:
GOSTEI 0
Delphiman
20/09/2003
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;
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;
GOSTEI 0
Echoesofpinkfloyd
20/09/2003
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;
var d: variant;
begin
if data.text=´ / / ´ then exit;
try
d:=strtodate(data.text);
except
showmessage(´Data invalida´);
data.setfocus;
end;
GOSTEI 0
Japa
20/09/2003
Obrigado amigos... Agradeço muito a ajuda de vc´s... :D
GOSTEI 0