Day of the week: Difference between revisions

no edit summary
m (→‎{{header|REBOL}}: Remove vanity tags)
No edit summary
Line 510:
25-12-2112
25-12-2118</pre>
 
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 PROGRAM "Dayweek.bas"
110 PRINT "The years between 2008 and 2121 will the 25th of December be a Sunday:"
120 FOR Y=2008 TO 2121
130 IF DAYWEEK(Y,12,25)=0 THEN PRINT "Dec 25,";Y
140 NEXT
150 DEF DAYWEEK(Y,M,D)
160 LET A=INT((14-M)/12):LET Y=Y-A
170 LET W=D+INT((13*(M+12*A-2)-1)/5)+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)
180 LET DAYWEEK=W-7*INT(W/7)
190 END DEF</lang>
 
==={{header|Sinclair ZX81 BASIC}}===
Anonymous user