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

Вниз

Работа с датой.   Найти похожие ветки 

← →
Монг   (2006-12-12 07:26) [0]

Как узнать, выпалает ли, какая то дата, на выходные (на субботу или восскресенье) ?

---

← →
Думкин ©   (2006-12-12 07:42) [1]

DayOfWeek + F1

procedure TForm1.Button1Click(Sender: TObject);

var
 ADate: TDateTime;
 days: array[1..7] of string;
begin
 days[1] := "Sunday";
 days[2] := "Monday";
 days[3] := "Tuesday";
 days[4] := "Wednesday";
 days[5] := "Thursday";
 days[6] := "Friday";
 days[7] := "Saturday";
 ADate := StrToDate(Edit1.Text);
 ShowMessage(Edit1.Text + " is a " + days[DayOfWeek(ADate)];
end;

---

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

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

Наверх

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