Какой сегодня день недели?

← →
Dr. Genius (2004-10-11 09:39) [0]

Вопрос, думаю, из оригинальных. Меня не устраивает то, что функции TimeToStr, DateToStr и DateTimeToStr выводят дату и время в неудобочитаемом формате. Поэтому я написал функцию, которая выводит дату в следующем виде: 11 октября 2004 г. Но я ещё хочу сделать, чтобы выводился день недели. Итак, как можно узнать день недели (понедельник, вторник, среда...)?

← →
КаПиБаРа © (2004-10-11 09:42) [1]

Dr. Genius (11.10.04 9:39)
F1 - DayOfWeek, FormatDateTime

← →
KSergey © (2004-10-11 09:47) [2]

> [1] КаПиБаРа © (11.10.04 09:42)

+ case of

← →
MBo © (2004-10-11 09:49) [3]

>которая выводит дату в следующем виде: 11 октября 2004 г.
GetDateFormat

← →
КаПиБаРа © (2004-10-11 09:49) [4]

KSergey © (11.10.04 9:47) [2]
Зачем case of?
ArrayDaysOfWeek!

> [4] КаПиБаРа © (11.10.04 09:49)
> Зачем case of?
> ArrayDaysOfWeek!

Я сначала написал - потом подумал... Но было поздно ;)

function DateFormatStr(ADate: TDate; AFormat: String): String;
var
st: TSystemTime;
buffer: array [0..$FFF] of Char;
begin
DateTimeToSystemTime(ADate, st);
Win32Check(GetDateFormat( LOCALE_USER_DEFAULT,
0,
@st,
Pointer(AFormat),
buffer,
SizeOf(buffer)) > 0);
Result := buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := DateFormatStr(Date, LongDateFormat+", dddd");
end;

Какой сегодня день недели? Найти похожие ветки