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

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

Как задать проверку на день недели? [D5, D6, D7, WinME, WinXP]

KOT ©   (2003-12-15 22:59:00) 

Как задать проверку на день недели (понедельник и т.д.)?
if dddd= {что тут писать} then ...

---

ALEIIIKA   (2003-12-23 10:19:00) [1]

Все это есть в HELP"e по Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := "Пн.";
days[2] := "Вт.";
days[3] := "Ср.";
days[4] := "Чт.";
days[5] := "Пт.";
days[6] := "Сб.";
days[7] := "Вс.";
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + " это " + days[DayOfWeek(ADate)];
end;

Этот пример показывает как определить день недели остальное не должно вызывать вопросов. Если есть отвечу.

---

Наверх