Функции и процедуры Delphi. Справочник.

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

4. Функции и процедуры для работы с датой и временем

Функция IsLeapYear( Year: Word ): Boolean;

Модуль: SysUtils

Описание
Функция определяет, является ли високосным год, указанный в параметре Year. Если год високосный, то функция возвращает True, а иначе - False.

Пример
var
   S: string;
   Year,Month,Day: Word;
begin
   DecodeDate( Date, Year, Month, Day);
   If IsLeapYear(Year) then S:= 'високосный'
   else S:='не високосный';
   MessageDlg( 'Текущий год - '+ S, mtInformation, [mbOk], 0);
end;

[Вернуться к содержанию]