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

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).

DaysInAMonth ()

function DaysInAMonth (const Year, Month: Word):Word;
Опис
Функція DaysInAMonth видає кількість днів у вказаному Році, Місяці.
Приклад
begin

ShowMessage ('Днів в Лютому 2000 =' +
IntToStr (DaysInAMonth (2000, 2)));
end;