Dúvidas com Datas

Delphi

03/02/2006

olá pessoal tudo bem com vcs?
Gostaria de saber como faço para que o usuário não digite a data anterior do sistema , ou seja, que dê entrada a partir do horário do sistema.

Por favor, como faço para proceder? Com um maskedit ou datetimepicker???

Agradeço antecipadamente.


Edibertoalves

Edibertoalves

Curtidas 0

Respostas

Marco Salles

Marco Salles

03/02/2006

nao seria isto ??

entre outras opções

procedure TForm1.Button1Click(Sender: TObject);
var
 erro:Boolean;
begin
try try
 erro:=True;
 if  StrToDate(MaskEdit1.Text) < Date Then
    showmessage(´Data Inferior´);
 erro:=False;
 except
   on E:EConvertError do
       showmessage(´Data Invalida´);
 end;
finally
 if erro Then
   MaskEdit1.SetFocus;
end;
end;


[b:330e3fddf6]Mas cuidado com a mascara do MaskEdit....[/b:330e3fddf6]


GOSTEI 0
POSTAR