Fórum verificar se data é válida #312682
11/02/2006
0
existe alguma função que receba uma data como parâmetro e retorne se esta data é verdadeira ou falsa?
ou como poço verificar se a data é verdadeira?
ou como poço verificar se a data é verdadeira?
Raserafim
Curtir tópico
+ 0
Responder
Posts
11/02/2006
Leandroaoa
Coloque no evento onkeypress do maskedit
If Key = #13 Then
begin
if MaskEdit.text <> ´ / / ´ then
begin
try
MaskEdit.text:= FormatDateTime(´dd/mm/yyyy´,StrToDate(MaskEdit.text));
except
ShowMessage(´ Data inválida !´);
MaskEdit.SetFocus;
end;
end;
end;
If Key = #13 Then
begin
if MaskEdit.text <> ´ / / ´ then
begin
try
MaskEdit.text:= FormatDateTime(´dd/mm/yyyy´,StrToDate(MaskEdit.text));
except
ShowMessage(´ Data inválida !´);
MaskEdit.SetFocus;
end;
end;
end;
Responder
Gostei + 0
11/02/2006
Weber
function isDate(S: String): Boolean; var dTemp: TDateTime; begin Result := TryStrToDate(S,dTemp); end;
Responder
Gostei + 0
18/02/2006
Raserafim
valeu weber
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)