blob: 027d14a210e589d2cd896ac3db6e4fcb30fa9ee7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
include defs
# wkday --- get day-of-week corresponding to month,day,year
integer function wkday (month, day, year)
integer month, day, year
integer lmonth, lday, lyear
lmonth = month - 2
lday = day
lyear = year
if (lmonth <= 0) {
lmonth = lmonth + 12
lyear = lyear - 1
}
wkday = mod (lday + (26 * lmonth - 2) / 10 + lyear + lyear / 4 - 34,
7) + 1
return
end
|
