IsLeapYear

Функция IsLeapYear() определяет, является ли високосным год, указанный в параметре, содержащем дату.

IsLeapYear(Year): Boolean
Year: Word	Значение года
Функция возвращает: True: если текущий год високосный False: год не високосный

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

{Pascal Script}
Var
   Year, Month, Day: Word;

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

Подробную информацию об "Окне отладочной информации" можно почитать здесь.