Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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

← →
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

аналагично, но отчет ведется с понедельника

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

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

---

← →
Tornado ©   (2002-08-13 08:44) [3]

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

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;


---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c