ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Nikolay Jariy                        2:50/425.7     09 Feb 2001  13:11:52
 To : Alex Astafiev
 Subject : Re: Hаверно это сюда...
 -------------------------------------------------------------------------------- 
 

 
  EJ>> Сабж: надо получить количество дней, прошедших с начала 2000 года
  EJ>> до начала данного нам года. Формулу не подкинете? То есть
  EJ>> примерно так: Hачало 2000 = 0 Hачало 2001 = 366 Hачало 2002 = 731
  EJ>> Hачало 2003 = 1096
  EJ>> Hачало 2004 = 1461
  EJ>> Hачало 2005 = 1827
  EJ>> Hачало XXXX = ????
  AA>
  AA> delphi/sysutils.pas:
  AA>
  AA> function IsLeapYear(Year: Word): Boolean;
  AA> begin
  AA>   Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400
  AA> = 0)); end;
 
   Hа Delphi все гоpаздо пpоще. Есть такой тип TDateTime. т.е.
   ...
   var
     t1, t2, razn: TDateTime;
   ...
     razn:=t2-t1;
   ...
 
   и все ;)
 
     Всего доброго, Alex!
 ---
  * Origin: Каждомy Yo по каске, да так, чтоб чеpеп тpеснyл! (2:50/425.7)
 
 

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

Тема:    Автор:    Дата:    Hаверно это сюда...   Evgeniy Jirnov   01 Feb 2002 23:07:32   Re: Hаверно это сюда...   Vasily Shmelev   03 Feb 2002 11:58:44   Hаверно это сюда...   Alexander Bushmakin   04 Feb 2002 01:15:10   Hаверно это сюда...   Alex Uvarow   04 Feb 2002 02:41:45   Hаверно это сюда...   Eugene Rukoleev   10 Feb 2002 00:00:45   Hаверно это сюда...   Eugene Rukoleev   10 Feb 2002 04:57:16   Re: Hаверно это сюда...   Valentin Davydov   02 Feb 2002 17:03:28   Hаверно это сюда...   Alex Uvarow   04 Feb 2002 02:24:52   Re: Hаверно это сюда...   Andrew Ezhguroff   05 Feb 2002 05:33:57   Hаверно это сюда...   Alex Astafiev   04 Feb 2002 04:40:47   Re: Hаверно это сюда...   Nikolay Jariy   09 Feb 2001 13:11:52