home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / pascal / 6669 < prev    next >
Encoding:
Internet Message Format  |  1992-11-17  |  6.2 KB
  1. Path: sparky!uunet!utcsri!skule.ecf!torn!nott!cunews!revcan!software.mitel.com!kim!kim
  2. From: kim@Software.Mitel.COM (Kim Letkeman)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: Day of week on a given date
  5. Message-ID: <KIM.92Nov17115401@kim.Software.Mitel.COM>
  6. Date: 17 Nov 92 16:54:01 GMT
  7. References: <1992Nov17.042319.29002@cs.unca.edu>
  8. Sender: kim@Software.Mitel.COM
  9. Organization: MITEL Public Switching, Kanata, Ontario, Canada
  10. Lines: 152
  11. In-reply-to: snodgras@cs.unca.edu's message of 17 Nov 92 04:23:19 GMT
  12.  
  13. In article <1992Nov17.042319.29002@cs.unca.edu> snodgras@cs.unca.edu (Ryan Snodgrass) writes:
  14.  
  15. | Does anyone know how to get the day of week given a specified date,
  16. | for example if the function were passed the date "11-16-92" then it would
  17. | return some number representing Monday? (I assume 1)
  18. | 
  19. | If you could give me an example, or of where to look to get an example I
  20. | would really appreciate it.
  21.  
  22. Here are some snippets of comments and code (C, but easy to
  23. translate). It handles year 1 through year 9999 and has been fully
  24. verified against all of cal's possible outputs.
  25.  
  26. ---------------------------
  27.  
  28. I take 1 jan 1 to be a Saturday because that's what cal says and I
  29. couldn't change that even if I was dumb enough to try. From this we
  30. can easily calculate the day of week for any date. The algorithm for a
  31. zero based day of week:
  32.  
  33.     calculate the number of days in all prior years (year-1)*365
  34.     add the number of leap years (days?) since year 1 
  35.         (not including this year as that is covered later)
  36.     add the day number within the year
  37.         this compensates for the non-inclusive leap year
  38.         calculation
  39.     if the day in question occurs before the gregorian reformation
  40.         (3 sep 1752 for our purposes), then simply return 
  41.         (value so far - 1 + SATURDAY's value of 6) modulo 7.
  42.     if the day in question occurs during the reformation (3 sep 1752
  43.         to 13 sep 1752 inclusive) return THURSDAY. This is my
  44.         idea of what happened then. It does not matter much as
  45.         this program never tries to find day of week for any day
  46.         that is not the first of a month.
  47.     otherwise, after the reformation, use the same formula as the
  48.         days before with the additional step of subtracting the
  49.         number of days (11) that were adjusted out of the calendar
  50.         just before taking the modulo.
  51.  
  52. It must be noted that the number of leap years calculation is
  53. sensitive to the date for which the leap year is being calculated. A
  54. year that occurs before the reformation is determined to be a leap
  55. year if its modulo of 4 equals zero. But after the reformation, a year
  56. is only a leap year if its modulo of 4 equals zero and its modulo of
  57. 100 does not. Of course, there is an exception for these century
  58. years. If the modulo of 400 equals zero, then the year is a leap year
  59. anyway. This is, in fact, what the gregorian reformation was all about
  60. (a bit of error in the old algorithm that caused the calendar to be
  61. inaccurate.)
  62.  
  63. #define        JANUARY            1
  64. #define        THURSDAY        4    /* for reformation */
  65. #define        SATURDAY         6    /* 1 Jan 1 was a saturday */
  66. #define        FIRST_MISSING_DAY     639787    /* 3 Sep 1752 */
  67. #define        NUMBER_MISSING_DAYS     11    /* 11 day correction */
  68.  
  69. static int    days_in_month[2][13] = 
  70.         {{0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
  71.          {0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}};
  72.  
  73. [...]
  74.  
  75. /****************************************************************************
  76.  * leap_year accounts for the gregorian reformation in 1752.                *
  77.  ****************************************************************************/
  78.  
  79. int leap_year (year)
  80. int    year;
  81. {
  82.     if (year<=1752) return (year%4 == 0);
  83.     else        return (year%4 == 0 && year%100 != 0 || year%400 == 0);
  84. }
  85.  
  86. /****************************************************************************
  87.  * day_in_year unabashedly borrowed from K&R, where it was called           *
  88.  * day_of_year ... returns the 1 based day number within the year.          *
  89.  ****************************************************************************/
  90.  
  91. int day_in_year (day, month, year)
  92. int    day;
  93. int    month;
  94. int    year;
  95. {
  96.     int    i;
  97.     int    leap;
  98.  
  99.     leap = leap_year (year);
  100.     for (i = 1; i < month; i++) day += days_in_month [leap] [i];
  101.     return (day);
  102. }
  103.  
  104. /****************************************************************************
  105.  * centuries_since_1700 returns the number of xx00 years that have occured  *
  106.  * since 1700 *not inclusive*.                                              *
  107.  ****************************************************************************/
  108.  
  109. int centuries_since_1700 (year)
  110. int    year;
  111. {
  112.     if (year > 1700) return ((year/100)-17);
  113.     else return (0);
  114. }
  115.  
  116. /****************************************************************************
  117.  * quad_centuries_since_1700 returns the number of xx00 years whose modulo  *
  118.  * of 400 == 0, also since 1700.                                            *
  119.  ****************************************************************************/
  120.  
  121. int quad_centuries_since_1700 (year)
  122. int    year;
  123. {
  124.     if (year > 1600) return ((year-1600)/400);
  125.     else return (0);
  126. }
  127.  
  128. /****************************************************************************
  129.  * leap_years_since_year_1 returns the number of leap years between year 1  *
  130.  * and this year *not inclusive*.                                           *
  131.  ****************************************************************************/
  132.  
  133. int leap_years_since_year_1 (year)
  134. int    year;
  135. {
  136.     --year;
  137.     return (year/4 - centuries_since_1700 (year)
  138.                    + quad_centuries_since_1700 (year));
  139. }
  140.  
  141. /****************************************************************************
  142.  * day_in_week returns a zero based day number for any date from 1 jan 1    *
  143.  * to 31 dec 9999. Assumes the gregorian reformation eliminates 3 sep 1752  *
  144.  * through 13 sep 1752. Returns THURSDAY (4) for all missing days.          *
  145.  ****************************************************************************/
  146.  
  147. int day_in_week (day, month, year)
  148. int    day;
  149. int    month;
  150. int    year;
  151. {
  152.     long    temp;
  153.  
  154.     temp = (long)(year-1)*365 + leap_years_since_year_1 (year)
  155.                   + day_in_year (day, month, year);
  156.     if (temp < FIRST_MISSING_DAY) return ((temp-1+SATURDAY)%7);
  157.     if (temp >= (FIRST_MISSING_DAY + NUMBER_MISSING_DAYS))
  158.         return (((temp-1+SATURDAY) - NUMBER_MISSING_DAYS)%7);
  159.     return (THURSDAY);
  160. }
  161.  
  162. Enjoy.
  163. --
  164. Kim Letkeman    kim@Software.Mitel.COM
  165.