Dúvidas com Datas
03/02/2006
0
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.
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
Curtir tópico
+ 0
Responder
Posts
03/02/2006
Marco Salles
nao seria isto ??
entre outras opções
[b:330e3fddf6]Mas cuidado com a mascara do MaskEdit....[/b:330e3fddf6]
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]
Responder
Clique aqui para fazer login e interagir na Comunidade :)
