| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как по дате определить день недели? [D5, Win2k]

Zilog ©   (2004-08-03 22:42:00) 

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

---

alena.svt   (2004-08-04 08:13:00) [1]

исправляюсь

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;

---

alena.svt   (2004-08-04 07:03:00) [2]

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

---

alena.svt   (2004-08-04 07:01:00) [3]

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;

---

GuAV   (2004-08-04 03:11:00) [4]

>  Date MOD 7

Trunc(Date) mod 7
:)

---

Andr   (2004-08-04 00:35:00) [5]

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

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;

---

Anatoly Podgoretsky   (2004-08-04 00:03:00) [6]

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

---

Vasya.ru   (2004-08-03 23:51:00) [7]

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

---

Тестировщица   (2004-08-03 22:48:00) [8]

F1 DayOfWeek

---

Наверх