Как по дате определить день недели?

← →
Zilog © (2004-08-03 22:42) [0]

Как по дате определить день недели?
Наверняка можно формулу вывести, может кто сталкивался?

← →
Тестировщица © (2004-08-03 22:48) [1]

F1 DayOfWeek

← →
Vasya.ru (2004-08-03 23:51) [2]

Видел в какой то книжке математической формулу, но щас не вспомню - сложная она...

← →
Anatoly Podgoretsky © (2004-08-04 00:03) [3]

Формула простая Date MOD 7

← →
Andr © (2004-08-04 00:35) [4]

Вычитал в книге Немнюгина. Разберёшься.

function intdow(yyyy, mm, dd: integer): integer; var addval: shortint; begin if mm<3 then addval:=1 else addval:=0; intdow:=(((3*yyyy-(7*(yyyy+(mm+9) div 12)) div 4+(23*mm) div 9+ dd+2+((yyyy-addval) div 100+1)*3 div 4-16) mod 7)); end;

← →
GuAV © (2004-08-04 03:11) [5]

> Date MOD 7

Trunc(Date) mod 7
:)

← →
alena.svt (2004-08-04 07:01) [6]

function DayOfWeekRus: String;
var
Days: array[1..7] of string;
begin
Days[1] := "Воскресенье";
Days[2] := "Понедельник";
Days[3] := "Вторник";
Days[4] := "Среда";
Days[5] := "Четверг";
Days[6] := "Пятница";
Days[7] := "Суббота";
Result:=Days[DayOfWeek(Date)];
end;

procedure ButtonClick(Sender: TObject);
begin
Label1.Caption:= "Сегодня " + DayOfWeekRus;
end;

← →
alena.svt (2004-08-04 07:03) [7]

Недочитала вопрос сорри!

← →
alena.svt (2004-08-04 08:13) [8]

исправляюсь

function DayOfWeekRus(Year,Month,Day: Word): String;
var
FDate: TDateTime;
begin
FDate:= EncodeDate(Year,Month,Day);
Case DayOfWeek (FDate) of
1: Result:= "воскресенье";
2: Result:= "понедельник";
3: Result:= "вторник";
4: Result:= "среда";
5: Result:= "четверг";
6: Result:= "пятница";
7: Result:= "суббота";
End;{Case}
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= DayOfWeekRus(2004,08,04);
end;

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