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

Функция IsLeapYear в Delphi

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

Описание:

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

Синтаксис:

IsLeapYear (Year: Word): Boolean;

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

uses SysUtils;
...
Var
  Res: Boolean;
begin
  Res:= IsLeapYear(2014);
  If Res Then
    ShowMessage('2014 год  - високосный')
  Else
    ShowMessage('2014 год  - невисокосный')
end;

Результат:

IsLeapYear в Delphi

(10 оценок, среднее: 5,00 из 5)

Загрузка...