Клуб программистов

    Delphi функция MonthOfTheYear передаёт номер текущего месяца в году. Возможно использовать текущую дату используя функцию Date, или предложить функции MonthOfTheYear какую либо конкретную дату.

    Номер месяца определяется следующим образом
    1 Январь
    2 Февраль
    3 Март
    ...
    12 Декабрь

var
   myDate : TDateTime;

begin
   myDate := EncodeDate(2002, 10, 29);
   ShowMessage('The month of the year = '+
               IntToStr(MonthOfTheYear(myDate)));
end;

The month of the year = 10