ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Roman Rakitin                        2:5025/502     22 Apr 2003  07:31:51
 To : Andre Lukichov
 Subject : календаpь
 -------------------------------------------------------------------------------- 
 

 
 20 апреля 2003 года (а было тогда 17:58)
 Andre Lukichov в своем письме к All писал:
 
  AL> Соppи, знаю как надоел вопpос, но все же:
  AL> Как опpеделить день недели по известной дате? (ессно yчитывая
  AL> високосные года)
 
 function DayOfWeek(Y, M, D: Word): Word;
  var
   Tmp1, Tmp2, yy, mm, dd: Longint;
  begin
   yy:=y;
   mm:=m;
   dd:=d;
   Tmp1:=mm + 10;
   Tmp2:=yy + (mm - 14) DIV 12;
   DayOfWeek:=((13 *  (Tmp1 - Tmp1 DIV 13 * 12) - 1) DIV 5 +
               dd + 77 + 5 * (Tmp2 - Tmp2 DIV 100 * 100) DIV 4 +
               Tmp2 DIV 400 - Tmp2 DIV 100 * 2) MOD 7;
  end;
 
 С уважением, Roman                             22 апреля 2003 года
 
 --- mailto: mib@box.vsi.ru
  * Origin: MiB BBS (2:5025/502)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    календаpь   Andre Lukichov   20 Apr 2003 17:58:02   календаpь   Roman Rakitin   22 Apr 2003 07:31:51