Fórum Erro de Data #172036
28/07/2003
0
Olá, Alguém poderia mandar o codigo para transformar o erro de data em uma messagebox. tipo = data inválida!
Obrigado Novamente
Rubens
Obrigado Novamente
Rubens
Analistasaad
Curtir tópico
+ 0
Responder
Posts
28/07/2003
Buosinet
var vData: TDateTime;
begin
try
vData := StrToDate(edit1.text);
except
raise Exception.Create(´Formato Inválido de Data´);
end;
end;
begin
try
vData := StrToDate(edit1.text);
except
raise Exception.Create(´Formato Inválido de Data´);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)