Fórum tratar data #324370
28/06/2006
0
obrigado
Airto
Curtir tópico
+ 0Posts
28/06/2006
Edilcimar
Gostei + 0
28/06/2006
Marco Salles
por
!99/99/9999 99:99;1;_,
Gostei + 0
28/06/2006
Airto
Gostei + 0
28/06/2006
Marco Salles
[b:47129a31d7]engraçado[/b:47129a31d7] , aqui com as seguintes condiçoes :
var
Dh:TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
Dh:=strtoDatetime(maskedit1.text);
showmessage(datetimetostr(dh));
end;
funciona sem problema , desde que a máscara esteja
!99/99/9999 99:99;1;_
Gostei + 0
28/06/2006
Airto
Gostei + 0
28/06/2006
Marco Salles
ai ja muda de figura
tente evento onSetTextDoCampo
procedure TForm1.Table1DataSetText(Sender: TField; const Text: String); var dataHora:TDateTime; begin if TryStrToDate(text,dataHora) then sender.AsDateTime:=dataHora else begin if text = ´ / / : ´ then sender.Clear else showmessage(´dados errados´) end;
Atenção ... ´ / / : ´ tem que estar de acordo com a sua mascara ... [b]espaço por espaço[/b]
boa sorte....
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)