Функция 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;