Day of the week: Difference between revisions
Content added Content deleted
(→{{header|Python}}: Added a datetime variant) |
No edit summary |
||
Line 4,248: | Line 4,248: | ||
2118 |
2118 |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang Yabasic>sub wd(m, d, y) |
|||
If m < 3 Then // If m = 1 Or m = 2 Then |
|||
m = m + 12 |
|||
y = y - 1 |
|||
End If |
|||
Return mod((y + int(y / 4) - int(y / 100) + int(y / 400) + d + int((153 * m + 8) / 5)), 7) |
|||
End sub |
|||
// ------=< MAIN >=------ |
|||
For yr = 2008 To 2121 |
|||
If wd(12, 25, yr) = 0 Then |
|||
Print "Dec 25 ", yr |
|||
EndIf |
|||
Next</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |