Функция DayOfTheWeek в Delphi возвращает индекс дня недели для значения TDateTime (ISO 8601).
DateUtils unit
function DayOfTheWeek (const Date : TDateTime) : Integer;
Функция DayOfTheWeek возвращает индекс дня недели:
1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье
Примечание.
Функция DayOfTheWeek согласована с ISO 8601, так как она использует Понедельник как начало недели.
Функция DayOfWeek не согласована – она обрабатывает Воскресенье как стартовый день.
Функция 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;
Результат
Рождество 2002 года Среда
Похожие функции, процедуры и команды
DayOfTheMonth — дает день месяца для значения TDateTime (ISO 8601).
DayOfTheYear — выдает день года для значения TDateTime (ISO 8601).
DayOfWeek — выдает индекс дня недели для значения TDateTime.
MonthOfTheYear — выдает месяц года для значения TDateTime.
