validar Datas
Oi galera;......
Gostaria de saber como fasso para validar datas de uma caixa des texto....
Valeu....
Gostaria de saber como fasso para validar datas de uma caixa des texto....
Valeu....
Bruno
Curtidas 0
Respostas
Datorre
17/07/2003
Uso assim...
No OnExit da edit
try
StrToDate(Edit_Data_Nasc.Text);
except
on EConvertError do
begin
MessageDlg(´Data inválida!´,MtError,[mbok],0);
end;
end;
No OnExit da edit
try
StrToDate(Edit_Data_Nasc.Text);
except
on EConvertError do
begin
MessageDlg(´Data inválida!´,MtError,[mbok],0);
end;
end;
GOSTEI 0
Einstein
17/07/2003
antes de inserir a data na Caixa de Texto teste ela da seguinte Forma:
try
StrtoDate(OrigemdaData);
except
ShowMessage(´Data Inválida´);
exit;
end
try
StrtoDate(OrigemdaData);
except
ShowMessage(´Data Inválida´);
exit;
end
GOSTEI 0