|
Проверка дат
|
|
function ValidDate(const S : String) :
Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO Result := False;
end;
END | |
Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)
|
Просмотров: 972
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|