Fórum Verifica data válida #282806

24/05/2005

0

Delphi

Como fazer para verificar se o usuário digitou uma data válida, ou seja não pode ser em branco nem outro caracter inválido?

Grato


Guima01

Guima01

Responder

Posts

24/05/2005

Marco Salles

digitou uma data


Digitou aonde :?: :?: :?:

Num MaskEdit , Nun Edit , Nun DbGrid :?: :?: :?:


Responder

Gostei + 0

24/05/2005

Guima01

[quote:26e95b27d6=´Marco Salles´]
digitou uma data


Digitou aonde :?: :?: :?:

Num MaskEdit , Nun Edit , Nun DbGrid :?: :?: :?:[/quote:26e95b27d6]



Será digitado em um edit ou inputbox


Responder

Gostei + 0

24/05/2005

Marco Salles

Será digitado em um edit ou inputbox


var
 data:TDate;
begin
try
 data:=StrToDate(Edit1.Text);
except
 on e:econverterror do
 begin
   showmessage(´DataInválida´);
 end;
end;

end;//do begin



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar