Day of the week: Difference between revisions
Content added Content deleted
m (→{{header|FreeBASIC}}: removed redundant code) |
No edit summary |
||
Line 3,441: | Line 3,441: | ||
2118 |
2118 |
||
</pre> |
</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> |