verificar se data é válida

Delphi

11/02/2006

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?


Raserafim

Raserafim

Curtidas 0

Respostas

Leandroaoa

Leandroaoa

11/02/2006

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;


GOSTEI 0
Weber

Weber

11/02/2006

function isDate(S: String): Boolean;
var
  dTemp: TDateTime;
begin
  Result := TryStrToDate(S,dTemp);
end;



GOSTEI 0
Raserafim

Raserafim

11/02/2006

valeu weber


GOSTEI 0
POSTAR