Array
(
)

Dúvidas com Datas

Edibertoalves
   - 03 fev 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.


Marco Salles
   - 03 fev 2006

nao seria isto ??

entre outras opções

#Código

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;


Mas cuidado com a mascara do MaskEdit....