ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Alex Astafiev                        2:5000/228.16  04 Feb 2002  04:40:47
 To : Evgeniy Jirnov
 Subject : Hаверно это сюда...
 -------------------------------------------------------------------------------- 
 

  EJ> Сабж: надо получить количество дней, прошедших с начала 2000 года до
  EJ> начала данного нам года. Формулу не подкинете?
  EJ>
  EJ> То есть примерно так:
  EJ>
  EJ> Hачало 2000 = 0
  EJ> Hачало 2001 = 366
  EJ> Hачало 2002 = 731
  EJ> Hачало 2003 = 1096
  EJ> Hачало 2004 = 1461
  EJ> Hачало 2005 = 1827
  EJ> Hачало XXXX = ????
  EJ>
  EJ> Интуицией улавливаю что надо делать, а на деле ошибки получаются... :(
 
 Интуиция дело хорошее, но на деле нужно пробежаться по всем годам, проверяя
 високосный это год или нет.
 
 delphi/sysutils.pas:
 
 function IsLeapYear(Year: Word): Boolean;
 begin
   Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
 end;
 --- Alex Raider / Flash inc.
  * Origin: Alex Raider/ Flash inc. 1992-2002 (2:5000/228.16)
 
 

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

Тема:    Автор:    Дата:    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