Функция определяет, является ли високосным год, указанный в параметре, содержащем дату. Если год високосный, то функция возвращает 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. |