Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: 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 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
1-1091373454
Studentik
2004-08-01 19:17
2004.08.15
Как подключить *.chm?


1-1091173196
Прог
2004-07-30 11:39
2004.08.15
Indy и кодировка


14-1090915970
syte_ser78
2004-07-27 12:12
2004.08.15
Существует ли ограничение на колво записей комбобокса?


1-1091090587
ksu
2004-07-29 12:43
2004.08.15
библиотека для растрово-векторной графики


14-1090999265
dron
2004-07-28 11:21
2004.08.15
Редактор кода Delphi 8! Хочу такой же в 7!