Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size

DayOfTheWeek

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

DayOfTheWeek

Описание

function DayOfTheWeek ( const Date : TDateTime ) : Integer;

Функция DayOfTheWeek возвращает индекс дня недели:
1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье

Пример кода

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г. Среда

Примечание

DayOfTheWeek сосгласована с ISO 8601, так как она использует Понедельник как начало недели.
DayOfWeek не сосгласована - она обрабатывает Воскресенье как стартовый день.

Авторизация



Счетчики