Проверка правильности даты
Материал из DRKB
Проверка правильности даты[править | править код]
function DateExists(Date: string; Separator: char): Boolean;
var
OldDateSeparator: Char;
begin
Result := True;
OldDateSeparator := DateSeparator;
DateSeparator := Separator;
try
try
StrToDate(Date);
except
Result := False;
end;
finally
DateSeparator := OldDateSeparator;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if DateExists('35.3.2001', '.') then
begin
{your code}
end;
end;
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 00195
function ValidDate(const S: String): Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO
Result := False;
end;
END
Source: http://delphiworld.narod.ru
ID: 00738