Anonymous user
Calendar: Difference between revisions
m
→{{header|BaCon}}
No edit summary |
|||
Line 1,066:
=={{header|BaCon}}==
Choosing 132 character output.
<lang freebasic>DECLARE month$[] = { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }
DECLARE month[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
Line 1,090 ⟶ 1,091:
INCR m, 12
DECR K
h = (day + ((m+1)*26)/10 + K + (K/4) + (J/4) + 5*J)
daynr = MOD(h, 7) - 2
| |||