Jour julien 0

jj0

tps

Année

Mois

Jour

Jour julien

Heures

Minutes

Date :

Jour

tps = 0 (slider from 0 to 500, step 0.166667)
B1 = 2299161 (slider from 2299161 to 2600000, step 1)
jj0: B1
jj: jj0 + tps
z: floor(jj + 0.5)
f: jj + 0.5 - z
B2: tps
alp: floor((z - 1867216.25) / 36524.25)
a: z + 1.0 + alp - floor(alp / 4.0)
b: a + 1524.0
c: floor((b - 122.1) / 365.25)
d: floor(365.25 * c)
e: floor((b - d) / 30.6001)
jdec: b - d - floor(30.6001 * e) + f
mr: e - If[e < 13.5, 1.0, 13.0]
yr: c - 4715.0 - If[mr > 2.5, 1.0, 0.0]
hdec: 24.0 * f
hr: floor(hdec)
mn: floor((hdec - hr) * 60.0)
texte2: hr + "h" + mn + "min"
jri: floor(jdec)
jjs = Mod(floor(jj - 0.5) + 0.5 + 1.5, 7.0)
texte3: "JJ : " + (jj0 + tps)
date2: "" + jri + "/" + mr + "/" + yr
B3: jj
B5: yr
B6: mr
B8: hr
B9: mn
zjour: floor(jj) + If[hdec < 12.0, 0.5, -0.5] + 1.5
zmod7 = Mod(zjour, 7.0)
txt_1: "" + (If[zmod7 ≟ 0.0, "Dimanche", If[jjs ≟ 1.0, "Lundi", If[jjs ≟ 2.0, "Mardi", If[jjs ≟ 3.0, "Mercredi", If[jjs ≟ 4.0, "Jeudi", If[jjs ≟ 5.0, "Vendredi", "Samedi"]]]]]])
B10: txt_1
B7: jri