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

function ValidDate(const S : String) : Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO Result := False;
end;
END
 
« Предыдущая статья   Следующая статья »