Fórum validar Datas #169796
17/07/2003
0
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
Curtir tópico
+ 0
Responder
Posts
17/07/2003
Datorre
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;
Responder
Gostei + 0
17/07/2003
Einstein
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)