#==========================================
#           VYPOCET DNE V TYDNU
#==========================================
# X: kompletni udaj YYYYMMDD dekadicky
# Y: nejaky mezivysledek (zustane nezmenen)
lbl0
xeq2
1
-
7
rmd
rtn
#==========================================
#        POCET DNI MEZI DVEMA DATY
#==========================================
# X: kompletni udaj c.1 YYYYMMDD dekadicky
# Y: kompletni udaj c.2 YYYYMMDD dekadicky
lbl1
xeq2
x<>y
xeq2
-
abs
rtn
#------------------------------------------
#      VYPOCET FAKTORU ZADANEHO DATA
#------------------------------------------
# X: kompletni udaj YYYYMMDD dekadicky
# Y: nejaky mezivysledek (zustane nezmenen)
lbl2
xeq4
rdn
365
rcl*0
rcl+2
31
rcl*1
rcl-l
+
-3
rcl+1
sign
x<0?
gto3
#------------------------------------------
rdn
4
rcl*1
23
+
10
/
-
0
#------------------------------------------
lbl3
rcl+0
stot
sr
sr
+
rup
100
/
3
*
lastx
+
2
srn
-
rtn
#------------------------------------------
#       ULOZENI ZADANI DO REGISTRU
#------------------------------------------
# X: kompletni udaj YYYYMMDD dekadicky
# Y: nejaky mezivysledek (zustane nezmenen)
lbl4
sto0
10000
/
x<>0        # YYYY (rok)
lastx
rcl*0
-
#------------------------------------------
sto1
100
/
x<>1        # MM (mesic)
lastx
rcl*1
-
#------------------------------------------
sto2        # DD (den)
rtn