Anonymous user
Day of the week: Difference between revisions
→{{header|FreeBASIC}}
No edit summary |
|||
Line 853:
End If
Return modulo(365 * y + Fix(y / 4) - Fix(y / 100) + Fix(y / 400) + d + Fix((153 * m + 8) / 5), 7) + 1
End Function
Dec 25, 2011
Dec 25, 2016
Line 870:
Dec 25, 2107
Dec 25, 2112
Dec 25, 2118</lang>
=={{header|GAP}}==
| |||