Delphi-Help

Главная Статьи Дата и Время Как проверить, существует ли дата?

Как проверить, существует ли дата?

Оцените материал
(0 голосов)


Как проверить, существует ли дата?

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
    {Ваш код}
  end;
end;
Прочитано 11300 раз

Авторизация



Счетчики