Функция 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
IsLeapYear в Delphi

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