Функция DayOfTheYear – выдает день года для значения TDateTime (ISO 8601)

Функция DayOfTheYear в Delphi выдает день года для значения TDateTime (ISO 8601).

Функция DayOfTheYear: Показ дня года для переменной TDateTime

var
  myDate : TDateTime;

begin
  myDate := EncodeDate(2002, 10, 29);
  ShowMessage('20/10/2002 день года = '+
              IntToStr(DayOfTheYear(myDate)));
end;