Функція DayOfTheWeek – повертає індекс дня тижня для значення TDateTime (ISO 8601)

Функція DayOfTheWeek в Delphi повертає індекс дня тижня для значення TDateTime (ISO 8601).

Функція DayOfTheWeek: Дізнаємося день тижня для Різдва 2002 року

var
  myDate : TDateTime;
  day    : array[1..7] of string;

begin
  // Ми не можемо використовувати LongDayNames - він починається з неділі
  day[1] := 'Понеділок';
  day[2] := 'Вівторок';
  day[3] := 'Середа';
  day[4] := 'Четвер';
  day[5] := 'П'ятниця';
  day[6] := 'Субота';
  day[7] := 'Неділя';

  myDate := EncodeDate(2002, 12, 25);

  ShowMessage('Різдво 2002 року '+day[DayOfTheWeek(myDate)]);
end;