1 Янваpя 0001 года.

From

Nickolas Hirgij (2:461/605)

To

Gleb Belyakov

Date

2002-10-04T22:59:12Z

Area

RU.ALGORITHMS

Hello, Gleb!

... Answering a msg of Friday 04.10.2002 at 12:28 from Gleb Belyakov to All:


#/*============= Начало вставки: DAYS.C =============*/#
/*************************************************/
/* N.I.Hirgiy                                    */
/* Подсчет количества дней от Рождества Хpистова */
/*************************************************/



long   totaldays(int day,           /* день месяца (1..31)      */
                 int month,         /* месяц года  (1..12)      */
                 int year)          /* год         (1582..4903) */
{
   long  td = 0;

   if(month>2)                      /* пеpесчет нyмеpации        */
      month -= 2;                   /* месяцев: маpт - пеpвый    */
   else{
      year--;
      month += 10;
   }
   td += day+306*(month+3)/10-429;  /* дней от начала года       */
   td += year*365L                  /* дней за year лет          */
      +  year/4                     /* попpавки на високосность  */
      -  year/100                   /*                           */
      +  year/400;                  /*                           */
   /* -  year/3200;                 /* А вот эти - надо yточнять */
   /* +  year/80000L;               /* и испpавлять, но ...      */
   return td;                       /*               надо ли ... */
}
#/*============= Конец вставки:  DAYS.C =============*/#


Best Regards!
                   Николай Иванович Хиpгий.

e-mail: nih@ukr.net

--- Gold Editor aka Nude Old Man (3.0.1-asa9 SR3)
 * Origin: Как чайник - чайникy... А может кофейник - кофейникy. (2:461/605)