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 16:31, 3 April 2024
, 1 month agono edit summary
No edit summary |
No edit summary |
||
Line 721:
Christmas Day 2021 is on a Saturday
New Year's Day 2022 is on a Saturday
</pre>▼
=={{header|FreePascal}}==▼
<syntaxhighlight lang="pascal">Program daysofweek;▼
Uses sysutils;▼
Const Years : array Of integer = (1578, 1590, 1642, 1957, 2020, 2021, 2022, 2242, 2245, 2393);▼
Var christmasday, newyearsday : tdatetime;▼
year : integer;▼
Begin▼
For year In years Do▼
Begin▼
christmasday := encodeDate(year,12,25);▼
newyearsday := encodeDate(year,1,1);▼
writeln('in ',year,' New Years day is on ',DefaultFormatSettings.LongDayNames[DayOfWeek(▼
newyearsday)],', and Christmas day on a ',DefaultFormatSettings.LongDayNames[DayOfWeek(▼
christmasday▼
)]);▼
End;▼
End.</syntaxhighlight>▼
{{out}}<pre>▼
in 1578 New Years day is on Sunday, and Christmas day on a Monday▼
in 1590 New Years day is on Monday, and Christmas day on a Tuesday▼
in 1642 New Years day is on Wednesday, and Christmas day on a Thursday▼
in 1957 New Years day is on Tuesday, and Christmas day on a Wednesday▼
in 2020 New Years day is on Wednesday, and Christmas day on a Friday▼
in 2021 New Years day is on Friday, and Christmas day on a Saturday▼
in 2022 New Years day is on Saturday, and Christmas day on a Sunday▼
in 2242 New Years day is on Saturday, and Christmas day on a Sunday▼
in 2245 New Years day is on Wednesday, and Christmas day on a Thursday▼
in 2393 New Years day is on Friday, and Christmas day on a Saturday▼
</pre>
Line 826 ⟶ 794:
<pre>25.12.2021 is a Saturday
01.01.2022 is a Saturday<</pre>
==={{header|Free Pascal}}===
Program daysofweek;
▲Uses sysutils;
▲Const Years : array Of integer = (1578, 1590, 1642, 1957, 2020, 2021, 2022, 2242, 2245, 2393);
▲Var christmasday, newyearsday : tdatetime;
▲ year : integer;
▲Begin
▲ For year In years Do
▲ Begin
▲ christmasday := encodeDate(year,12,25);
▲ newyearsday := encodeDate(year,1,1);
▲ writeln('in ',year,' New Years day is on ',DefaultFormatSettings.LongDayNames[DayOfWeek(
▲ newyearsday)],', and Christmas day on a ',DefaultFormatSettings.LongDayNames[DayOfWeek(
▲ christmasday
▲ )]);
▲ End;
End.
<pre>
▲in 1578 New Years day is on Sunday, and Christmas day on a Monday
▲in 1590 New Years day is on Monday, and Christmas day on a Tuesday
▲in 1642 New Years day is on Wednesday, and Christmas day on a Thursday
▲in 1957 New Years day is on Tuesday, and Christmas day on a Wednesday
▲in 2020 New Years day is on Wednesday, and Christmas day on a Friday
▲in 2021 New Years day is on Friday, and Christmas day on a Saturday
▲in 2022 New Years day is on Saturday, and Christmas day on a Sunday
▲in 2242 New Years day is on Saturday, and Christmas day on a Sunday
▲in 2245 New Years day is on Wednesday, and Christmas day on a Thursday
▲in 2393 New Years day is on Friday, and Christmas day on a Saturday
▲</pre>
=={{header|Perl}}==
| |||