Day of the week of Christmas and New Year: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 155: | Line 155: | ||
In 2245, New year's day is on a Wednesday, and Christmas day on Thursday. |
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. |
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> |
</pre> |