X:AC-CalcAux

De Milamzer
Sauter à la navigation Sauter à la recherche

On calcule le numéro 'jour julien' du 1er jour du siècle (ex. 2269299 pour le 01/01/1601)
En partant du numéro 'jour julien' du 01/01/1001 qui est 2086674
Les dates invalides (antérieures au 01/01/1001 ou non renseignées) sont ignorées et remplacées par la date du jour





















































































































Siecle = 21









JJsiecle = 2451911








Numannee = 21
Nbcycles = 5
Jjcycles = 2459216
Numordre = 0
JJannee = 2459216




















Définition du Jour Julien, veille du début de chaque mois (on pourra ainsi ajouter 1 pour obtenir le numéro JJ du 1er, etc.)

















Détermination d'un jour théorique pour la première Nouvelle Lune du mois
On suppose que la durée d'une lunaison est 29,53058885 jours cf. Wikipedia


nllunaison = 29.53058885


On va utiliser comme référence la Nouvelle Lune "moyenne" du 20 octobre 1960 soit JJ = 2437228,5021 (nljjref) cf. Lunaisons.xls


nljjref = 2437228.5021


Combien de jours (nlnbjj0) entre le jour de référence et le 1er jour du mois à traiter ?


nlnbjj0 = -22138.4979


On calcule combien il y a eu de lunaisons complètes (trunc) entre le 1er jour du mois à traiter et le JJ nljjref : nlnblunes


nlnblunes = -749

nlnblunes = 750


D'où un nombre de jours = nblunaisons * durée moyenne (29,53058885) : nlnbjj1


nlnbjj1 = 22147.9416375


D'où un numéro JJ du jour de la NL nlnumjj : JJ de référence + nlnbjj1


nlnumjj = 2459376


D'où un numéro du jour du mois pour la NL : nlnumjj - 1er jour du mois 2459367
Voir Février 1957 pour un mois de février sans Nouvelle Lune (OK avec un 29 février fictif cf. ci-dessous)


nlnumjour = 10


Détermination de l'indice de l'icône à afficher ; utilisé ensuite dans InitKal


















Si la valeur de var:nli* est négative on ajoute 30


















Mois_uc = Juin
JJmois_0 = 2459366






JJpaques = 2459302