Day of the week: Difference between revisions
Content deleted Content added
→{{header|Commodore BASIC}}: Fix line numbers |
add Tiny BASIC |
||
Line 791: | Line 791: | ||
ctrl+space |
ctrl+space |
||
</lang> |
</lang> |
||
{{out}} |
|||
<pre>2011 |
|||
2016 |
|||
2022 |
|||
2033 |
|||
2039 |
|||
2044 |
|||
2050 |
|||
2061 |
|||
2067 |
|||
2072 |
|||
2078 |
|||
2089 |
|||
2095 |
|||
2101 |
|||
2107 |
|||
2112 |
|||
2118</pre> |
|||
==={{header|Tiny BASIC}}=== |
|||
<lang tinybasic> |
|||
LET Y = 2007 |
|||
LET M = 12 |
|||
LET D = 25 |
|||
10 IF Y = 2122 THEN END |
|||
LET Y = Y + 1 |
|||
GOSUB 100 |
|||
IF Z = 0 THEN PRINT Y |
|||
GOTO 10 |
|||
100 REM CALCULATE DAY OF WEEK Z GIVEN |
|||
REM YEAR Y, MONTH M AND DAY D |
|||
REM SUNDAY = 0, SATURDAY = 6 |
|||
IF M < 3 THEN LET Y = Y - 1 |
|||
IF M < 3 THEN LET M = M + 12 |
|||
LET Z = Y + Y/4 - Y/100 + Y/400 |
|||
LET Z = Z + D + (153*M + 8)/5 |
|||
LET Z = Z - 7*(Z/7) |
|||
RETURN</lang> |
|||
{{out}} |
{{out}} |
||
<pre>2011 |
<pre>2011 |