| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

День недели [D6, Win95/98]

Skin ©   (2002-08-12 21:30:00) 

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

---

Tornado   (2002-08-13 08:44:00) [1]

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

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;


---

rhf   (2002-08-12 23:07:00) [2]

или так

dayOfWeek(now) // из sysUtils

вернет порядковый номер текущего дня недели - отсчет ведеться с воскресения

dayOfTheWeek(now) // из DateUtils

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

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

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

---

TAlex   (2002-08-12 21:35:00) [3]

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

---

Наверх