Day of the week of Christmas and New Year: Difference between revisions
Day of the week of Christmas and New Year (view source)
Revision as of 20:19, 26 November 2021
, 2 years agoAdded XPL0 example.
(Added XPL0 example.) |
|||
Line 155:
In 2245, New year's day is on a Wednesday, and Christmas day on Thursday.
In 2393, New year's day is on a Friday, and Christmas day on Saturday.
</pre>
=={{header|XPL0}}==
<lang XPL0>func WeekDay(Year, Month, Day); \Return address of day of week
int Year, Month, Day; \Works for years 1583 onward
int DayOfWeek, Names;
[if Month<=2 then [Month:= Month+12; Year:= Year-1];
DayOfWeek:= rem((Day-1 + (Month+1)*26/10 + Year + Year/4 + Year/100*6 + Year/400)/7);
Names:= ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"];
return Names(DayOfWeek);
]; \WeekDay
[Text(0, "This Christmas is on a ");
Text(0, WeekDay(2021, 12, 25)); CrLf(0);
Text(0, "This New Year's Day is on a ");
Text(0, WeekDay(2022, 1, 1)); CrLf(0);
]</lang>
{{out}}
<pre>
This Christmas is on a Saturday
This New Year's Day is on a Saturday
</pre>
| |||