|
|
|
|
Delphi 1
Проверка дат
|
function ValidDate(const S : String) : Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO Result := False;
end;
END
|
[000556]
|
|
|
|
|
 |
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
Delphi 1
|
function ValidDate(const S : String) : Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO Result := False;
end;
END
|
[000556]
|
|
|
|
|