home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / HAM_W32.ZIP / SAMPLES / WEEKDAY.CSH < prev    next >
Encoding:
Text File  |  1994-05-12  |  423 b   |  13 lines
  1. #    Calculate the day of the week corresponding to a given date.
  2. #    Copyright (c) 1991 by Hamilton Laboratories.  All rights reserved.
  3.  
  4. proc weekday(month, day, year)
  5.     local days, i
  6.     set days = Sunday Monday Tuesday Wednesday Thursday Friday Saturday
  7.     # Get the Julian day, but notice that 4713 BC was not a leap year.
  8.     if ((i = `julian $month $day $year`) < 58) @ i++
  9.     return days[(i + 2) % 7]
  10. end
  11.  
  12. weekday $argv
  13.