Delphi-Help

Описание

var LongDayNames : array[1..7] of string;
array[1] := 'Sunday';
array[2] := 'Monday';
array[3] := 'Tuesday';
array[4] := 'Wednesday';
array[5] := 'Thursday';
array[6] := 'Friday';
array[7] := 'Saturday';

Переменная LongDayNames содержит массив полных строковых названий дней недели.

Так как это - массив, вы можете модифицировать значения по умолчанию (установленные регионом Windows), но это рекомендуется.

Пример кода

var
myDate : TDateTime;
day    : string;

begin
myDate := EncodeDate(2002, 12, 31);

day := LongDayNames[DayOfWeek(myDate)];

ShowMessage('Рождество 2002г. - '+day);
end;

Рождество 2002г. - Вторник

Примечание

Предупреждение: эти значения используют Воскресенье как начальное значение. Это не является стандартом ISO 8601. Используйте с DayOfWeek, который также обрабатывает воскресенье как первый день недели.

Вам советуют использовать DayOfTheWeek, который соответсвует ISO 8601, используя Понедельник в качестве начала недели.