День недели

← →
Skin (2002-08-12 21:30) [0]

Уважаемые мастера, подскажите пожалуйста как мне сделать чтобы форма показывала какой сегодня день недели?

← →
TAlex © (2002-08-12 21:35) [1]

ShowMessage(FormatDateTime("dddd",Now))
Правда день недели будет с маленькой буквы. Но это поправимо.

← →
rhf © (2002-08-12 23:07) [2]

или так
dayOfWeek(now) // из sysUtils
вернет порядковый номер текущего дня недели - отсчет ведеться с воскресения
dayOfTheWeek(now) // из DateUtils
аналагично, но отчет ведется с понедельника

названия дней можно придумать самому :)

ЗЫ ну или можно самому по алгоритмам высчитать день недели

Еще как вариант:

var days: array[1..7] of string;
ADate: TDateTime;

begin days[1] := "Воскресенье"; days[2] := "Понедельник"; days[3] := "Вторник"; days[4] := "Среда"; days[5] := "Четверг"; days[6] := "Пятница"; days[7] := "Суббота"; ADate := Date(); Label1.Caption := Datetostr(Date()) + " " + days[DayOfWeek(ADate)]; end;

День недели Найти похожие ветки