[Михалыч]

как в форму в label1 вставить текущий день недели, типа сегодня: понедельник, 22 сентября 2008 года. Хотя как вставить дату знаю, а вот с днем недели не получается

[cotseec]

используй DecodeDate или DecodeDate

[lmikle]

Человек не о том спрашивает.
Тебе поможет функция DayOfWeek (если правильно помню, то в модуле DateUtils - проверь по справке).

[cotseec]

Сообщение от lmikle

Человек не о том спрашивает.
Тебе поможет функция DayOfWeek (если правильно помню, то в модуле DateUtils - проверь по справке).

хм, согласен, не совсем то

[Михалыч]

функцию нужно использовать DayOfWeek, это точно, только чего то не получается, может кусок кода кто покажет?

[lmikle]

А в справку слабо заглянуть?

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  cDays : Array [1..7] Of String = ('Вс','Пн','Вт','Ср','Чт','Пт','Сб');
begin
  Label1.Caption := cDays[DayOfWeek(Date)];
end;