Day of the week: Difference between revisions

Content added Content deleted
m (→‎{{header|GW-BASIC}}: Works with BASICA.)
(→‎{{header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.)
Line 1,086: Line 1,086:


==={{header|Tiny BASIC}}===
==={{header|Tiny BASIC}}===
{{works with|TinyBasic}}
<syntaxhighlight lang="tinybasic">
<syntaxhighlight lang="basic">10 REM Day of the week
⚫
LET Y = 2007
LET M = 12
20 LET Y = 2007
LET D = 25
30 LET M = 12
⚫
40 LET D = 25
10 IF Y = 2122 THEN END
LET Y = Y + 1
50 IF Y = 2122 THEN END
GOSUB 100
60 LET Y = Y + 1
70 GOSUB 200
IF Z = 0 THEN PRINT Y
GOTO 10
80 IF Z = 0 THEN PRINT Y
90 GOTO 50

100 REM CALCULATE DAY OF WEEK Z GIVEN
170 REM Calculate day of week Z given
REM YEAR Y, MONTH M AND DAY D
180 REM year Y, month M, and day D
REM SUNDAY = 0, SATURDAY = 6
190 REM Sunday = 0, Saturday = 6
IF M < 3 THEN LET Y = Y - 1
200 IF M < 3 THEN LET Y = Y - 1
IF M < 3 THEN LET M = M + 12
210 IF M < 3 THEN LET M = M + 12
LET Z = Y + Y/4 - Y/100 + Y/400
220 LET Z = Y + Y / 4 - Y / 100 + Y / 400
LET Z = Z + D + (153*M + 8)/5
230 LET Z = Z + D + (153 * M + 8) / 5
LET Z = Z - 7*(Z/7)
240 LET Z = Z - 7 * (Z / 7)
RETURN</syntaxhighlight>
250 RETURN</syntaxhighlight>
{{out}}
{{out}}
<pre>2011
<pre>2011
Retrieved from "https://rosettacode.org/wiki/Day_of_the_week"