X:AC-CalcAux

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 = 25
Nbcycles = 6
Jjcycles = 2460677
Numordre = 0
JJannee = 2460677

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 = -23568.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 = -798

nlnblunes = 799

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

nlnbjj1 = 23594.94049115

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

nlnumjj = 2460823

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

nlnumjour = 27

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 = Mai
JJmois_0 = 2460796

JJpaques = 2460763