Проверка даты

function ValidDate(const S : String) : Boolean;

BEGIN

Result := True;

try

StrToDate(S);

except

ON EConvertError DO Result := False;

end;

END

« Предыдущая статья		Следующая статья »