Скачать: CL | DM;

Определение дня недели по дате.   Найти похожие ветки 

← →
NightCon   (2002-05-22 09:08) [0]

Не помогут ли мне гуру с такой проблемой: необходимо заполнить массив числами, соответствующими выходным дням месяца. Сам вопрос можно сформулировать так: какой функцией можно определить, каким днем недели я вляется введенная дата?

---

← →
Lord Warlock ©   (2002-05-22 09:13) [1]

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;

из Depphi help

---

← →
onix ©   (2002-05-22 09:19) [2]

DayOfWeek(Data);
Это описано в Help"e.

---

← →
Slava ©   (2002-05-22 09:47) [3]

А также DayOfTheWeek(Date)

DayOfTheWeek returns a value between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.

---

← →
Song ©   (2002-05-22 09:55) [4]

Одна по стандарту ГОСТ, другая по ISO

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c