Сообщение об ошибке

Deprecated function: The each() function is deprecated. This message will be suppressed on further calls в функции menu_set_active_trail() (строка 2405 в файле /home/kpaco123/e-helper/includes/menu.inc).

DaysInAYear ()

function DaysInAYear (const Year: Word): Word;
Опис
Функція DaysInAYear видає кількість днів у даному Році. Рік може бути в діапазоні 0 .. 9999
Приклад
begin
ShowMessage ('Днів у 2000р. =' +
IntToStr (DaysInAYear (2000)));
end;