Re: Day Calculation

Hi, Jaydeep

Excuse me, I forgot to write the code of day of the week. 

        Formula 1  0=Sat,1=Sun,2=Mon, .... 6=Fri,
        Formula 2  0=Sun,1=Mon,2=Tue, .... 6=Sat,
So,

        Formula 1(August 26th,2000) = 0 = Saturday.
        Formula 2(August 26th,2000) = 6 = Saturday.

BTW, I recommend the second formula 2.

HTH

Best regards.


On Fri, 3 Mar 2000 15:22:52 -0500
jsingh@cgsinc.com wrote in "Day Calculation":

  > 
  > 
  > Hi Tadashi
  > 
  > I was trying to calculate the number of days on the basis of your(Zeller's)
  > formula for August 26th,2000. I am getting some wrong results.
  > 
  > I introduced the Zeller's formula as a column of computer tips in my home
  > page for Japanese programmers. (Of course I know there is a function for
  > calculation of the day of week in RPG iv.)
  > 
  > Zeller's formula is known as below. There are two types.
  > 
  >      (I) (yy2+[yy2/4]+[yy1/4]+[26(mm+1)/10]-(2*yy1)+dd)mod 7
  > August 26th,2000  = (00 + [00/4] + [20/4] + [26(08+1)/10] - (2*20) + 26) 
mod 7
  >                = (00 + 00     + 5      + [26(9)/10]    - 40   + 26) mod 7
  >                = (00 + 00     + 5      + (234/10)      - 40     + 26) mod 7
  >                = (00 + 00     + 5  + 23            - 40     + 26) mod 7
  >                   = (28 - 40 + 26) mod 7
  >                = (54     - 40) mod 7
  >                = (14) mod 7
  >                   = 0, is this the number of days.
  > 
  > 
  >      MOD(n,d)  = n  - d*INT(n/d)
  >      MOD(14,7) = 14 - 7*INT(14/7)
  >                 = 14 - 7*INT(2)
  >               = 14 - 7*2
  >               = 14 - 14
  >               = 0
  > 
  > I do not know where and what I am missing, Pl. could you inform me.
  > 
  > Thanks
  > 
  > With Regards
  > jaydeep
  > 

/* ---------------------------------------------------------*/
                       Tadashi Kakefuda
 The Internet Mail Address ; tadashii@tk.airnet.ne.jp
   * Official site ; http://www2c.airnet.ne.jp/as400/
 /*----------------------------------------------------------*/
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---