Day of the Week

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|520\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

Evil Roy Ferguso	Created : 23 November 2008 Edited : 23 November 2008 Language : Blitz Day of the Week Returns the day of the week that an arbitrary date fell on, using Zeller's Congruence.
; This function returns the ISO weekday of the given calendar date, ; using Zeller's congruence. ; (1 is Monday, 7 is Sunday.) Function DayOfTheWeek(day, month, year) ; Algorithm considers Jan/Feb to be months 13 and 14 of previous year. If month < 3 month = month + 12 year = year - 1 EndIf ; For readability's sake. Local century = year / 100 Local year_cent = year Mod 100 ; Find the weekday using Zeller's congruence. Local weekday = day + (26(month+1))/10 + year_cent ; Account for leap year. weekday = weekday + year_cent/4 + century/4 + 5century ; It's not Pluterday. weekday = (weekday + 5) Mod 7 + 1 Return weekday End Function --v

Comments