Обновлено: 01 декабря, 2018

Функция IsInLeapYear в Delphi

Используемый модуль: DateUtils

Описание:

Определяет, относится ли указанная дата AValue типа TDateTime к високосному году.

Синтаксис:

function IsInLeapYear(const AValue: TDateTime): Boolean;

Пример использования:

uses DateUtils;
...
var
  Res: Boolean;
begin
  Res:= IsInLeapYear(Now); // проверяем относится ли текущий год к високосному
  If Res Then
    ShowMessage('Текущий год - високосный')
  Else
    ShowMessage('Текущий год - невисокосный');
end;

Результат:

IsInLeapYear в Delphi