Wp34s date from DOY

[ggauny@live.fr]

Hi,

We all know how calculate a "Day of year" say also "YearDay".
A beautifull little routine stays in the WP34s Library for this.
But reverse is it possible, say I know the DOY and, of course, the year of this day of year ?

Yes it is possible with that little routine adapted from A POUPLIER in Jean MEEUS.

Code:



LBL'DYD'  ; stand for the Date from a Year Day
#002
STO I
X<>Z
LEAP?
DEC I
[<=>] YZXX ; to fit the convenient stack
#032
X>? Y
SF 00
DROP
RCL I
X<>Z
DROP
+
RCL L
X<>Y
#009
x        ; Multiplicate
2
7
5
/
#098
SDR 002
+
IP
FS?C 00
RCL/ X
STO 00
2
7
5
x        ; Multiplicate
9
/
IP
-
RCL 00
9
+
#012
/
IP
RCL I
x         ; Multiplicate
+
#030
+
RCL 00
SDR 002
+
X<>Y
SDR 006
+
RTN
END

Enter first YEAR and second DOY !

So, 1908 297 ----> 23,101908 my Father born
1914 169 ----> 18,061914 my Mother born
1907 90 ----> 31,031907
1908 91 ----> 31,031908

Gérard.
: