Функция 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;

Результат:

Функция IsInLeapYearv
IsInLeapYear в Delphi

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий