DayOfWeek
Функция
Выдает индекс дня недели для значения TDateTime
SysUtils unit
function DayOfWeek ( Date : TDateTime ) : Integer;
Описание
Функция DayOfTheWeek возвращает индекс дня недели:
1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье
Примечания
Предупреждение : Эта функция НЕ согласована с ISO 8601.
DayOfTheWeek является согласованной с ISO 8601, и использует Понедельник как начало недели.
Похожие команды
DayOfTheMonth Дает день месяца для значения TDateTime (ISO 8601)
DayOfTheWeek Возвращает индекс дня недели для значения TDateTime (ISO 8601)
DayOfTheYear Выдает день года для значения TDateTime (ISO 8601)
MonthOfTheYear Выдает месяц года для значения TDateTime
Пример кода : Показ дня недели для Рождества 2002 г.
var
myDate : TDateTime;
day : string;
begin
myDate := EncodeDate(2002, 12, 31);
day := LongDayNames[DayOfWeek (myDate)];
ShowMessage('Рождество 2002г. '+day);
end;
Рождество 2002г. Вторник
Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")