Описание функции

DateIsLeapYear

Проверяет, является ли год високосным.

DateIsLeapYear(year)

Параметры

year Год для проверки

Возвращаемое значение

Возвращает 1, если год високосный, иначе 0

Пример

Procedure DateIsLeapYear(year)
    If (year % 4 = 0 And year % 100 <> 0) Or year % 400 = 0
        ProcedureReturn 1
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

Debug DateIsLeapYear(2024)