Post Reply 
(41CX/DM41)(17Bii) Date of the first Advent Sunday in a year
02-04-2020, 10:34 PM (This post was last modified: 02-04-2020 10:35 PM by jthole.)
Post: #1
(41CX/DM41)(17Bii) Date of the first Advent Sunday in a year
This small program is an adaptation of an equation I have in my HP 17Bii. One of the reasons for posting this here, is that it shows the elegance of the HP 17Bii solver. The other reason is that it's fun, and can be useful (if only because you know when to open the first window of the Advent calendar ;-) ).

First of all, here is the short and simple HP 17Bii Solver equation: (both the solver and program assume DD.MMYYYY).
Code:

ADVDATE = DATE( L( XMAS : YEAR รท 1000000 + 25.12 ) : ( ( MOD( DDAYS( 1.0119 : G( XMAS ) : 1 ) : 7 ) + 22 ) x - 1 ) )

And here is the HP 41CX/DM41L program, which takes the year in the X register (just following the equation; maybe could be optimised further).
Code:

LBL "ADVDATE"
1000000
/
25.12
+
STO 00
1.0119
X<>Y
DDAYS  ;XROM 26,14
7
MOD
22
+
CHS
RCL 00
X<>Y
DATE+  ;XROM 26,13
END

Running on the 17Bii:
Enter YEAR: 2021
Solve ADVDATE: 28,112021

Running on the DM41L:
2021
XEQ ADVDATE
28,112021

Of course, the program (and equation) only works for the Gregorian calendar. Monday Jan. 1, 1900 was chosen because I liked that date (any date works, as long as you adjust the offset (currently 22) in the equation.

BTW; I do not have a HP 41CX, but I do have a SwissMicros DM41L; I tested the program on the DM41L.

11C, 12C, 17Bii, DM42
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(41CX/DM41)(17Bii) Date of the first Advent Sunday in a year - jthole - 02-04-2020 10:34 PM



User(s) browsing this thread: 1 Guest(s)