Código
var
D : TDateTime;
begin
Result := True;
try
D := StrToDate(StrD);
except on EConvertError do Result:=False;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009