IsLeapYear

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

Синтаксис
IsLeapYear(Year: Word): Boolean
Входные параметры
Имя параметра	Тип параметра	Описание
Year	Word	Значение года
Выходные параметры
Тип параметра		Описание
Boolean		True - год високосный False - год не високосный

Пример вызова:

Var
     Year, Month, Day: Word;

Begin
     DecodeDate(now(), Year, Month, Day);
     if IsLeapYear(Year) then
        WriteValue('Virtual channel 99', 'Год високосный')
     else
        WriteValue('Virtual channel 99', 'Год не високосный')
end.