Weekday.csh



#  Calculate the day of the week corresponding to a given date.
#  Copyright (c) 1991 by Hamilton Laboratories.  All rights reserved.

proc weekday(month, day, year)
   local days, i
   set days = Sunday Monday Tuesday Wednesday Thursday Friday Saturday
   # Get the Julian day, but notice that 4713 BC was not a leap year.
   if ((i = `julian $month $day $year`) < 58) @ i++
   return days[(i + 2) % 7]
end

weekday $argv



Hamilton C shell | Free Updates | Free Demo Software | Win32 Training
Y2K | Customer Testimonials | On-line Hamilton C shell User Guide
Home | Email | Support | Company Profile | Distributors | Links



Copyright © 1997-2001 by Hamilton Laboratories. All rights reserved.
You are visitor number 543. This page was last modified August 14, 2001.