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

Вниз

Как задать проверку на день недели?   Найти похожие ветки 

← →
KOT   (2003-12-15 22:59) [0]

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

---

← →
ALEIIIKA ©   (2003-12-23 10:19) [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;

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

---

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

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

Наверх

Память: 0.46 MB
Время: 0.043 c