Определение дня недели по дате.

← →
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.

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

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