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

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

MonthOfTheYear ()

function MonthOfTheYear (const Date: TDateTime):Word;
Опис

Функція MonthOfTheYear повертає індексний номер місяця року. Значення знаходиться в діапазоні від 1 (січень) до12 (грудень).

Приклад
var
myDate: TDateTime;
begin
myDate: = EncodeDate (2002, 10, 29);
ShowMessage ('Місяць року =' +
IntToStr (MonthOfTheYear (myDate)));
end;