Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c