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

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

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

---

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

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



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