Содержание:


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.