Anonymous user
Day of the week: Difference between revisions
m
→old school DOW: added whitespace.
m (→using DATE base: changed quote style.) |
m (→old school DOW: added whitespace.) |
||
Line 3,753:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
dow: procedure; parse arg m,d,y;
yL= left(y, 2); yr= right(y, 2); w= (d + (m+1)*26%10 +yr +yr%4 +yL%4 +5*yL) //
if w==0 then w= 7;
{{out|output|text= when using the default input:}}
<pre>
|