Day of the week: Difference between revisions
no edit summary
m (→{{header|FreeBASIC}}: removed redundant code) |
No edit summary |
||
Line 3,441:
2118
</pre>
=={{header|ZX Spectrum Basic}}==
{{trans|BASIC}}
<lang zxbasic>10 CLS
20 FOR y=2008 TO 2121
30 LET year=y: LET m=12: LET d=25: GO SUB 1000
40 IF wd=1 THEN PRINT d;" ";m;" ";y
50 NEXT y
60 STOP
1000 REM week day
1010 IF m=1 OR m=2 THEN LET m=m+12: LET year=year-1
1020 LET wd=FN m(365*year+INT (year/4)-INT (year/100)+INT (year/400)+d+INT ((153*m+8)/5),7)+1
1030 RETURN
1100 DEF FN m(a,b)=a-INT (a/b)*b</lang>
| |||