Fórum Maskedit #180206
05/09/2003
0
pessoal estou utilizando um maskedit em minha aplicação e gostaria de saber o que vocês acham:
nesse maskedit são os usuários que entraram com os dados:
Como consigo validar a data que é digitada?
exemplo:
__/_9/___3_
__/__/_____
Se alguém puder me ajudar a validar as datas.
nesse maskedit são os usuários que entraram com os dados:
Como consigo validar a data que é digitada?
exemplo:
__/_9/___3_
__/__/_____
Se alguém puder me ajudar a validar as datas.
Mineiro
Curtir tópico
+ 0
Responder
Posts
05/09/2003
Vinicius2k
Function IsDate(DateString: String): Boolean;
Begin
Try
StrToDateTime(DateString);
Result := True;
except
on EConvertError do Result := False;
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
if isdate(maskedit1.text) then
showmessage (´Data correta!´)
else
showmessage (´Data incorreta!´);
end;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)