Formules de calcul

Index	Formule
CG_JJ	Conversion d'une date du calendrier grégorien en jour julien J = jour M = mois A = année JJ = 367 * A - ENT(1,75 * (ENT((M + 9) / 12) + A )) + ENT(275 * M / 9) - ENT(0,75 * (1 + ENT(0,01 * (ENT((M - 9) / 7) + A)))) + J + 1721028,5
CG_NBJ	Nombre de jours entre deux dates du calendrier grégorien Pour chacune des deux dates calculer la valeur Resultat et faire la différence entre ces deux valeurs. J= jour M = mois A = année b = 365 * A c = 31 * (M - 1) si M = 1 ou M = 2 faire d = 0 e = ENT ((A - 1)/4) h = ENT (0,75 * (ENT ((A - 1) / 100) + 1 )) si M 1 et M 2 faire d = ENT(0,4 * M + 2,3) e= ENT (A/4) h = ENT (0,75 * (ENT (A/100) + 1 )) Resultat = J + b + c - d + e - h
CJ_JJ	Conversion d'une date du calendrier julien en jour julien J = jour M = mois A = année si mois si A JJ = ENT(365,25 * A - 0,75) + ENT(30,6001 * (M + 1)) + J + 1720994,5 si A>= 0 => JJ = ENT(365,25 * A) + ENT(30,6001 * (M + 1)) + J + 1720994,5
CR	Règles de construction des nombres romains. /m/calendriers-saga/etudes-thematiques/formules-calcul/vii_664_3.png 1x« alt= »« class= »o-pic__img u-noalign o-pic__img--ld o-pic__img--natural o-pic__img--inline"/> a pour valeur 7 000
CS	Cycle solaire. Il est aussi indiqué sur le calendrier de la poste À = année S = ((A + 8) MOD 28) + 1
EG	Epacte grégorienne. Figure aussi sur le calendrier de la poste À =année C = deux premiers chiffres de l'année Eg = (11 * (A mod 19) + 8 - C + ENT(C / 4) + ENT((8 * C + 13) / 25)) MOD 30 Si Eg = 25 et N>11, Eg = 25 (en gras)
EJ	Epacte julienne Ej = (N + 10(N-1)) MOD 30 ; N = nombre d'or (voir NO)
FETES	P = date de PAQUES ASCENSION = P + 39 jours PENTECOTE = P + 49 jours
JJ_CG	Conversion du jour julien en date du calendrier grégorien JJ = partie entière du jour julien a = JJ + 32045 b= ENT(4 * (a + 36524) / 146097) - 1 c = a - ENT(146097 * b / 4) d = ENT(4 * (c + 365) / 1461) - 1 e = c - ENT(1461 * d / 4) m = ENT((5 * (e - 1) + 2) / 153) Résultats : jour = e - ENT(((153 * m) + 2) / 5) mois = m + 3 - 12 * ENT(m / 10) année = (100 * b) - 4800 + ENT(m / 10) + d
JJ_CJ	Conversion du jour julien en date du calendrier julien JJ = partie entière du jour julien b = 0 c = JJ + 32083 d = ENT(4 * (c + 365) / 1461) - 1 e = c - ENT(1461 * d / 4) m = ENT((5 * (e - 1) + 2) / 153) Résultats : jour = e - ENT((153 * m) + 2 / 5) mois = m + 3 - 12 * ENT(m / 10) année = 100 * b - 4800 + ENT(m / 10) + d
LDG	Lettre dominicale dans le calendrier grégorien. Figure aussi sur le calendrier de la poste C = deux premiers chiffres de l'année U = deux derniers chiffres de l'année Lg = ((2C - U - ENT(U /4) - ENT(C/4)) MOD 7) + 1 resultat : 1=A ; 2=B...
LDJ	Lettre dominicale dans le calendrier julien. S = cycle solaire de l'année (voir CS) Lj = ((6 - S - (ENT(S - 1) / 4)) MOD 7) + 1 resultat : 1=A ; 2 =B....
NO	Nombre d'or. Figure aussi sur le calendrier de la poste À = année N= (A MOD 19) + 1
PQ1	Date de Pâques à partir de l'épacte grégorienne et de la lettre dominicale grégorienne E = epacte (voir EG) L = lettre dominicale (voir EG) si E = 24 et L = 4 => E = -5 si E = 25 et L = 3 => E = -4 si E > 23 => E = E - 30 P = 45 - E + ((E + L + 1) MOD 7)
PQ2	Date de Pâques dans le calendrier julien.
PQ3	Date de Pâques dans le calendrier grégorien (à partir de 1583).
HMS1	Conversion des heures, minutes, secondes en heures décimales H = heures M = minutes S = secondes a = S / 60 b = (M + a) / 60 HD = H + b
HMS2	Conversion des heures décimales en heures, minutes, secondes HD = heure décimale a = (partie décimale de HD * 60) minutes = partie entière de a b = (partie décimale de a * 60) secondes = partie entière de b heures = partie entière de HD
JSEM1	Trouver le jour de la semaine à partir d'une date Soit la date J/M/SD (S= deux premiers chiffres de l'année - D deux derniers chiffres de l'année) Le jour de la semaine JSEM sera = J + 3M - ENT(3M/10) + 5S + ENT(S/4) + D + ENT(D/4) + C C=3 pour janvier et février si l'année est bissextile C=4 pour janvier et février si l'année n'est pas bissextile C=2 pour avril C=0 pour décembre C=1 dans tous les autres cas Prendre le reste de JSEM/7 Le résultat est : samedi = 0 ; dimanche = 1 ; lundi = 2... Source : dictionnaire des mathématiques récréatives
JSEM2	Trouver le jour de la semaine à partir d'un Jour Julien (à 00 H UT) Ajouter 1,5 au JJ Diviser par 7 Le résultat est : samedi = 0 ; dimanche = 1 ; lundi = 2...
OL_J	Trouver l'année julienne à partir de l'olympiade Soit n le nombre de l'olympiade, p le chiffre additionnel (1re, 2e, 3e, 4e année de la nième olympiade) Période av. J.-C. : Année julienne = 776 - ((n - 1) X 4 + (p - 1)) Période ap. J.-C. : Année julienne = (n - 1) X 4 + p - 776
J_OL	Trouver l'olympiade et le chiffre additionnel à partir de l'année julienne Soit n le nombre des olympiades, p le chiffre additionnel (1re, 2e, 3e, 4e année de la nième olympiade) A=année julienne Période av. J.-C. : Si la partie décimale de (776-A)/4 = 0, p=1, n=(ENT(776 - A)/4)) +1 Si la partie décimale de (776-A)/4 = 25, p=2, n=(ENT(776 - A)/4)) +1 Si la partie décimale de (776-A)/4 = 50, p=3, n=(ENT(776 - A)/4)) +1 Si la partie décimale de (776-A)/4 = 75, p=4, n=(ENT(776 - A)/4)) +1 Période ap. J.-C. : Si la partie décimale de (776+A)/4 = 25, p=1, n=(ENT(776 +A)/4)) +1 Si la partie décimale de (776+A)/4 = 50, p=2, n=(ENT(776 +A)/4)) +1 Si la partie décimale de (776+A)/4 = 75, p=3, n=(ENT(776 +A)/4)) +1 Si la partie décimale de (776+A)/4 = 00, p=4, n=(ENT(776 +A)/4) )

FORMULES EXCEL
EXC_AT	Durée de l'année tropique pour un jour julien donné. Jour julien en B1 EN B4 : =(B1-2451545)/365250 EN B3 : =365,2421905166-61,5607(10^-6)B4-68,4(10^-9)(B4^2)+263(10^-9)(B4^3)+3,2(10^-9)(B4^4) = durée de l'année tropique.
EXC_CS	Cycle solaire dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(ANNEE+8;28)+1
EXC_EG	Epacte dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(ET(MOD(11MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8ENT(ANNEE/100)+13)/25);30)=25;MOD(ANNEE;19)+1>11);"XXV"; MOD(11MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8ENT(ANNEE/100)+13)/25);30))
EXC_EJ	Epacte dans le calendrier julien . Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(11*MOD(ANNEE;19)+8;30)
EXC_IR	Indiction romaine dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(ANNEE+2;15)+1
EXC_LDG	Lettre dominicale dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(ENT(365,25*(ANNEE))+SI((ANNEE+1)
EXC_LDJ	Lettre dominicale dans le calendrier julien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(MOD(ANNEE;4)=0;CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE-ENT(ANNEE/100)100)-ENT((ANNEE -ENT(ANNEE/100)100)/4);7)+1;"B";"C";"D";"E";"F";"G";"A");"")&CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE -ENT(ANNEE/100)100)-ENT((ANNEE-ENT(ANNEE/100)100)/4);7)+1;"A";"B";"C";"D";"E";"F";"G")
EXC_NO	Nombre d'or dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(ANNEE;19)+1
EXC_PQ1CTRLG	Controle de l'année pour la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(ANNÉE
EXC_PQ1JG	Jour de la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2MOD(ENT(ANNÉE/100);4)+2ENT(MOD(ANNÉE;100)/4) -MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2MOD(ENT(ANNÉE/100);4)+2ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114;31)+1
EXC_PQ1JJ	Jour de la date de Pâques solaire dans le calendrier julien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =MOD(MOD(19MOD(ANNEE;19)+15;30)+MOD(2MOD(ANNEE;4)+4MOD(ANNEE;7) -MOD(19MOD(ANNEE;19)+15;30)+34;7)+114;31)+1
EXC_PQ1MG	Mois de la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =ENT((MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2MOD(ENT(ANNÉE/100);4)+2ENT(MOD(ANNÉE;100)/4) -MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11MOD(19MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2MOD(ENT(ANNÉE/100);4)+2ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114)/31)
EXC_PQ1MJ	Mois de la date de Pâques dans le calendrier julien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =ENT((MOD(19MOD(ANNEE;19)+15;30)+MOD(2MOD(ANNEE;4)+4MOD(ANNEE;7) -MOD(19MOD(ANNEE;19)+15;30)+34;7)+114)/31)
EXC_PQ2	date de Pâques Année dans A1 Dans une autre cellule (au format date) : =ARRONDI(DATE(A1;4;MOD(234-11MOD(A1;19);30))/7;)7-6
EXC_SJJ	Jour de la semaine à partir du jour julien. Merci à Daniel LACROZE-MARTY Nommer JJ la cellule qui contient le jour julien =CHOISIR(MOD(JJ+1,5;7)+1;"dimanche";"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi")
EXC_NBJJ	Nombre de jours dans l'année pour le calendrier julien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(MOD(ANNEE ;4)=0 ;366 ;365)
EXC_NBJG	Nombre de jours dans l'année pour le calendrier grégorien. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année =SI(MOD(ANNEE ;400)=0 ;366 ;SI(MOD(ANNEE ;100)=0 ;365 ;SI(MOD(ANNEE ;4)=0 ;366 ;365)))
EXC_DTJJ	Obtenir la date à partir du jour julien. Merci à Daniel LACROZE-MARTY Nommer JJ la cellule qui contient le jour julien. Nommer d'autres cellules JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES. Dans la cellule JOUR : =SI(ENT(JJ+0,5) ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524 -ENT(365,25ENT((SI(ENT(JJ+0,5) ENT(JJ+0,5);ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5) -1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001)) Dans la cellule MOIS : =SI(ENT((SI(ENT(JJ+0,5) Dans la cellule ANNEE : =SI(MOIS>2,5;ENT((SI(ENT(JJ+0,5) +ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524-122,1) /365,25)-4715) Dans la cellule HEURES : =ENT((JJ+0,5-ENT(JJ+0,5))24) Dans la cellule MINUTES : =ENT((JJ+0,5-ENT(JJ+0,5))1440-ENT(HEURES60)) Dans la cellule SECONDES : =(JJ+0,5-ENT(JJ+0,5))86400-HEURES3600-MINUTES*60
EXC_SUNJJ	Obtenir le jour julien à partir d'une position du soleil. Merci à Daniel LACROZE-MARTY Nommer ANNEE la cellule qui contient l'année et POSITION celle qui contient la position du soleil (en degrés décimaux 0 à 360). Nommer d'autres cellules JJ1, T1, M1, JJ2, T2, M2, JJ3, T3, M3, JJ4, T4, M4, JJ5, T5, M5, JJ. Pour obtenir les solstices et équinoxes, POSITION prendre donc les valeurs 0, 90,180 ou 270 Dans la cellule JJ1 : =(ANNEE+POSITION/360)365,2422+1721141,3 Dans la cellule T1 : =(JJ1-2415020)/36525 Dans la cellule M1 : =6,256583522+628,301945727T1-0,000002618T1T1-0,000000058T1T1T1 Dans la cellule JJ2 : =JJ1+58SIN(POSITION/180PI()-(4,88162797+628,331950904 T1 +0,00000528T1T1+(0,033500897-0,000083584T1-0,000000244T1T1) SIN(M1) +(0,000350706-0,000001745T1)SIN(2M1)+0,000005114SIN(3M1)-0,0000993092-0,000083601SIN(4,523544355 -33,7571461T1))) Dans la cellule T2 : =(JJ2-2415020)/36525 Dans la cellule M2 : =6,256583522+628,301945727T2-0,000002618T2T2-0,000000058T2T2T2 Dans la cellule JJ3 : =JJ2+58SIN(POSITION/180PI()-(4,88162797+628,331950904 T2 +0,00000528T2T2+(0,033500897-0,000083584T2-0,000000244T2T2) SIN(M2) +(0,000350706-0,000001745T2)SIN(2M2)+0,000005114SIN(3M2)-0,0000993092-0,000083601 SIN(4,523544355-33,7571461T2))) Dans la cellule T3 : =(JJ3-2415020)/36525 Dans la cellule M3 : =6,256583522+628,301945727T3-0,000002618T3T3-0,000000058T3T3T3 Dans la cellule JJ4 : =JJ3+58SIN(POSITION/180PI()-(4,88162797+628,331950904 T3 +0,00000528T3T3+(0,033500897-0,000083584T3-0,000000244T3T3 )SIN(M3) +(0,000350706-0,000001745T3)SIN(2M3)+0,000005114SIN(3M3)-0,0000993092-0,000083601 SIN(4,523544355-33,7571461T3))) Dans la cellule T4 : =(JJ4-2415020)/36525 Dans la cellule M4 : =6,256583522+628,301945727T4-0,000002618T4T4-0,000000058T4T4T4 Dans la cellule JJ5 : =JJ4+58SIN(POSITION/180PI()-(4,88162797+628,331950904 T4 +0,00000528T4T4+(0,033500897-0,000083584T4-0,000000244T4T4) SIN(M4) +(0,000350706-0,000001745T4)SIN(2M4)+0,000005114SIN(3M4)-0,0000993092-0,000083601 SIN(4,523544355-33,7571461T4))) Dans la cellule T5 : =(JJ5-2415020)/36525 Dans la cellule M5 : =6,256583522+628,301945727T5-0,000002618T5T5-0,000000058T5T5T5 Dans la cellule JJ (résultat...ouf !!) : =JJ5+58SIN(POSITION/180PI()-(4,88162797+628,331950904T5 + 0,00000528T5T5+(0,033500897-0,000083584T5-0,000000244T5T5) SIN(M5) +(0,000350706-0,000001745T5)SIN(2M5)+0,000005114SIN(3M5)-0,0000993092-0,000083601 SIN(4,523544355-33,7571461*T5)))
XC_J_JG	Calcul du jour julien à partir de date et heure (julien ou grégorien) . Merci à Daniel LACROZE-MARTY Nommer JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES les cellules qui vont recevoir les données correspondantes. Jour julien (0 h) : =ENT(365,25SI(MOIS +13;MOIS+1)))+JOUR+1720994,5+SI(ANNÉE10000+MOIS100+JOUR 0;2-ENT(SI(MOIS Jour julien (h mn s) : =ENT(365,25SI(MOIS +13;MOIS+1)))+JOUR+HEURES/24+MINUTES/1440+SECONDES/86400 +1720994,5 +SI(ANNÉE10000+MOIS100+JOUR
XC_NUMJ_JG	Calcul du numéro de jour dans l'année à partir d'une date (julien ou grégorien). Merci à Nicolas DELONG Nommer JOUR, MOIS, ANNEE les cellules qui vont recevoir les données correspondantes. Numéro du jour =ENT(275MOIS/9)-SI(SI(ANNEE0;MOD(ANNEE;400)=0)));1;2)ENT((MOIS+9)/12)+JOUR-30
XC_GREC_BIS	Calcul des années bissextiles dans le calendrier grec moderne qui ne suit pas les règles grégoriennes. Merci encore Daniel LACROZE-MARTY Nommer JOUR, MOIS, ANNEE les cellules qui vont recevoir les données correspondantes. Nommer ANNEE la cellule qui contient l'année grecque. Mettre, dans un autre cellule, la formule =SI(OU(MOD(ANNEE;900)=200;MOD(ANNEE;900)=600);366;SI(MOD(ANNEE;100)=0;365;SI(MOD(ANNEE;4)=0;366;365))) qui donnera le nombre de jours de cette année.
XC_NL	Encore une série de formules dues à Daniel LACROZE-MARTY. Elle vaut son pesant d'or tant elle est rare. Elle permet d'obtenir le jour julien de la nouvelle lune la plus proche d'une date grégorienne donnée. Combinée à EXC_DTJJ, elle convertit ce jour julien en date du calendrier grégorien. Elle mérite bien qu'on se donne la peine de nommer quelques cellules. Chapeau Daniel. Nommer respectivement JOUR, MOIS, ANNEE les cellules qui vont contenir la date pour laquelle on veut connaître la date de nouvelle lune la plus proche Nommer d'autres cellules NLJJa, NLk, NLT, NLJJm, NLM, NLM1, NLF, JJ. JJ affichera le Jour Julien de la nouvelle lune la plus proche de notre date initiale. Ces différentes cellules nommées vont respectivement contenir les formules suivantes : Formule dans cellule nommée NLJJa : =ENT(275MOIS/9)-SI(OU(ET(ANNEE1582;ANNEE/4-ENT(ANNEE/4)=0;ANNEE/400-ENT(ANNEE/400)0));1;2)ENT((MOIS+9)/12)+JOUR-30 Formule dans cellule nommée NLk : =ARRONDI((ANNEE+NLJJa/365,25-1900)12,3685;0) Formule dans cellule nommée NLT* : =NLk/1236,85 Formule dans cellule nommée NLJJm : =2415020,75933+29,53058868NLk+0,0001178NLTNLT -0,000000155NLTNLTNLT+0,00033SIN(2,9070204+2,31901898NLT-0,0001601NLTNLT) Formule dans cellule nommée NLM : =6,26964504+0,50798429NLk-0,0000005812NLTNLT -0,0000000606NLTNLTNLT Formule dans cellule nommée NLM1 : =5,34114908+6,73377553NLk+0,00018728NLTNLT+0,0000002157NLTNLTNLT Formule dans cellule nommée NLF : =0,3716923+6,81848663NLk-0,000028847NLTNLT-0,00000004171NLTNLTNLT Formule dans cellule nommée JJ : =NLJJm+0,0021SIN(2NLM)-0,0004SIN(3NLM1)-0,0004SIN(2NLF-NLM) - 0,0006SIN(2NLF+NLM1)+(0,1734-0,000393NLT)SIN(NLM) -0,4068SIN(NLM1)+0,0161SIN(2NLM1)+0,0104SIN(NLF2)- 0,0051SIN(NLM+NLM1)-0,0074SIN(NLM -NLM1)+0,0004SIN(2NLF+NLM)+0,001SIN(2NLF-NLM1)+0,0005SIN(NLM+2NLM1) Pour obtenir la date de la pleine lune au lieu de la nouvelle lune, rajouter 0,5 à NLk*
XC_SUNLC	Heures de lever et coucher du Soleil pour un jour déterminé 1) Commencer par copier-coller dans un module VBA les fonctions qui se trouvent ici rappel de la procédure : Copier toutes les formules d'un coup. Dans Excel, appeler l'éditeur VB à l'aide du raccourci clavier Alt F11 Dans le menu INSERTION de l'éditeur, cliquer sur MODULE Coller les fonctions dans ce module Retourner sur la feuille Excel 2) Dans trois cellules, entrer le jour, le mois, l'année (ex : 10 en A1 ; 07 en A2 ; 2005 en A3) Dans deux autres cellules, entrer la longitude et la latitude du lieu. Les longitudes Ouest sont négatives, les chiffres sont des valeurs décimales des degrés et minutes. Par exemple, pour Paris mettre en B1 la valeur 48,87 (latitude 48°52) et en B2 la valeur 2,33 (longitude 2°20 E) 3) Dans une autre cellule (D1 par exemple), appeler la fonction personnalisée LEVER et pointer sur les bonnes cellules des différentes variables demandées. Ce qui donnera pour notre exemple =lever(B1;B2;A1;A2;A3) Passer la cellule D1 au format HEURE type 13:30 4) Faire la même chose que 3) pour la fonction COUCHER dans une autre cellule. La formule de la cellule sera donc =coucher(B1;B2;A1;A2;A3)

CG_JJ

Conversion d'une date du calendrier grégorien en jour julien

J = jour
M = mois
A = année
JJ = 367 * A - ENT(1,75 * (ENT((M + 9) / 12) + A )) + ENT(275 * M / 9) - ENT(0,75 * (1 + ENT(0,01 * (ENT((M - 9) / 7) + A)))) + J + 1721028,5

CG_NBJ

Nombre de jours entre deux dates du calendrier grégorien

Pour chacune des deux dates calculer la valeur Resultat et faire la différence entre ces deux valeurs.

J= jour
M = mois
A = année
b = 365 * A
c = 31 * (M - 1)
si M = 1 ou M = 2 faire
d = 0
e = ENT ((A - 1)/4)
h = ENT (0,75 * (ENT ((A - 1) / 100) + 1 ))
si M 1 et M 2 faire
d = ENT(0,4 * M + 2,3)
e= ENT (A/4)
h = ENT (0,75 * (ENT (A/100) + 1 ))
Resultat = J + b + c - d + e - h

CJ_JJ

Conversion d'une date du calendrier julien en jour julien

J = jour
M = mois
A = année
si mois si A JJ = ENT(365,25 * A - 0,75) + ENT(30,6001 * (M + 1)) + J + 1720994,5
si A>= 0 => JJ = ENT(365,25 * A) + ENT(30,6001 * (M + 1)) + J + 1720994,5

CR

Règles de construction des nombres romains.

/m/calendriers-saga/etudes-thematiques/formules-calcul/vii_664_3.png 1x« alt= »« class= »o-pic__img u-noalign o-pic__img--ld o-pic__img--natural o-pic__img--inline"/> a pour valeur 7 000

CS

Cycle solaire. Il est aussi indiqué sur le calendrier de la poste

À = année
S = ((A + 8) MOD 28) + 1

EG

Epacte grégorienne. Figure aussi sur le calendrier de la poste

À =année
C = deux premiers chiffres de l'année
Eg = (11 * (A mod 19) + 8 - C + ENT(C / 4) + ENT((8 * C + 13) / 25)) MOD 30
Si Eg = 25 et N>11, Eg = 25 (en gras)

EJ

Epacte julienne

Ej = (N + 10(N-1)) MOD 30 ; N = nombre d'or (voir NO)

FETES

P = date de PAQUES
ASCENSION = P + 39 jours
PENTECOTE = P + 49 jours

JJ_CG

Conversion du jour julien en date du calendrier grégorien

JJ = partie entière du jour julien
a = JJ + 32045
b= ENT(4 * (a + 36524) / 146097) - 1
c = a - ENT(146097 * b / 4)
d = ENT(4 * (c + 365) / 1461) - 1
e = c - ENT(1461 * d / 4)
m = ENT((5 * (e - 1) + 2) / 153)

Résultats :
jour = e - ENT(((153 * m) + 2) / 5)
mois = m + 3 - 12 * ENT(m / 10)
année = (100 * b) - 4800 + ENT(m / 10) + d

JJ_CJ

Conversion du jour julien en date du calendrier julien

JJ = partie entière du jour julien
b = 0
c = JJ + 32083
d = ENT(4 * (c + 365) / 1461) - 1
e = c - ENT(1461 * d / 4)
m = ENT((5 * (e - 1) + 2) / 153)

Résultats :
jour = e - ENT((153 * m) + 2 / 5)
mois = m + 3 - 12 * ENT(m / 10)
année = 100 * b - 4800 + ENT(m / 10) + d

LDG

Lettre dominicale dans le calendrier grégorien. Figure aussi sur le calendrier de la poste

C = deux premiers chiffres de l'année
U = deux derniers chiffres de l'année
Lg = ((2C - U - ENT(U /4) - ENT(C/4)) MOD 7) + 1

resultat : 1=A ; 2=B...

LDJ

Lettre dominicale dans le calendrier julien.

S = cycle solaire de l'année (voir CS)
Lj = ((6 - S - (ENT(S - 1) / 4)) MOD 7) + 1

resultat : 1=A ; 2 =B....

NO

Nombre d'or. Figure aussi sur le calendrier de la poste

À = année
N= (A MOD 19) + 1

PQ1

Date de Pâques à partir de l'épacte grégorienne et de la lettre dominicale grégorienne

E = epacte (voir EG)
L = lettre dominicale (voir EG)
si E = 24 et L = 4 => E = -5
si E = 25 et L = 3 => E = -4
si E > 23 => E = E - 30
P = 45 - E + ((E + L + 1) MOD 7)

PQ2

Date de Pâques dans le calendrier julien.

PQ3

Date de Pâques dans le calendrier grégorien (à partir de 1583).

HMS1

Conversion des heures, minutes, secondes en heures décimales

H = heures
M = minutes
S = secondes
a = S / 60
b = (M + a) / 60
HD = H + b

HMS2

Conversion des heures décimales en heures, minutes, secondes

HD = heure décimale
a = (partie décimale de HD * 60)
minutes = partie entière de a
b = (partie décimale de a * 60)
secondes = partie entière de b
heures = partie entière de HD

JSEM1

Trouver le jour de la semaine à partir d'une date

Soit la date J/M/SD (S= deux premiers chiffres de l'année - D deux derniers chiffres de l'année)
Le jour de la semaine JSEM sera = J + 3M - ENT(3M/10) + 5S + ENT(S/4) + D + ENT(D/4) + C
C=3 pour janvier et février si l'année est bissextile
C=4 pour janvier et février si l'année n'est pas bissextile
C=2 pour avril
C=0 pour décembre
C=1 dans tous les autres cas
Prendre le reste de JSEM/7
Le résultat est : samedi = 0 ; dimanche = 1 ; lundi = 2...

Source : dictionnaire des mathématiques récréatives

JSEM2

Trouver le jour de la semaine à partir d'un Jour Julien (à 00 H UT)

Ajouter 1,5 au JJ
Diviser par 7
Le résultat est : samedi = 0 ; dimanche = 1 ; lundi = 2...

OL_J

Trouver l'année julienne à partir de l'olympiade

Soit n le nombre de l'olympiade, p le chiffre additionnel (1re, 2e, 3e, 4e année de la nième olympiade)

Période av. J.-C. : Année julienne = 776 - ((n - 1) X 4 + (p - 1))
Période ap. J.-C. : Année julienne = (n - 1) X 4 + p - 776

J_OL

Trouver l'olympiade et le chiffre additionnel à partir de l'année julienne

Soit n le nombre des olympiades, p le chiffre additionnel (1re, 2e, 3e, 4e année de la nième olympiade)
A=année julienne

Période av. J.-C. :
Si la partie décimale de (776-A)/4 = 0, p=1, n=(ENT(776 - A)/4)) +1
Si la partie décimale de (776-A)/4 = 25, p=2, n=(ENT(776 - A)/4)) +1
Si la partie décimale de (776-A)/4 = 50, p=3, n=(ENT(776 - A)/4)) +1
Si la partie décimale de (776-A)/4 = 75, p=4, n=(ENT(776 - A)/4)) +1

Période ap. J.-C. :
Si la partie décimale de (776+A)/4 = 25, p=1, n=(ENT(776 +A)/4)) +1
Si la partie décimale de (776+A)/4 = 50, p=2, n=(ENT(776 +A)/4)) +1
Si la partie décimale de (776+A)/4 = 75, p=3, n=(ENT(776 +A)/4)) +1
Si la partie décimale de (776+A)/4 = 00, p=4, n=(ENT(776 +A)/4) )

FORMULES EXCEL

EXC_AT

Durée de l'année tropique pour un jour julien donné.

Jour julien en B1

EN B4 : =(B1-2451545)/365250

EN B3 : =365,2421905166-61,5607*(10^-6)*B4-68,4*(10^-9)*(B4^2)+263*(10^-9)*(B4^3)+3,2*(10^-9)*(B4^4) = durée de l'année tropique.

EXC_CS

Cycle solaire dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(ANNEE+8;28)+1

EXC_EG

Epacte dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(ET(MOD(11*MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8*ENT(ANNEE/100)+13)/25);30)=25;MOD(ANNEE;19)+1>11);"XXV"; MOD(11*MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8*ENT(ANNEE/100)+13)/25);30))

EXC_EJ

Epacte dans le calendrier julien . Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(11*MOD(ANNEE;19)+8;30)

EXC_IR

Indiction romaine dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(ANNEE+2;15)+1

EXC_LDG

Lettre dominicale dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(ENT(365,25*(ANNEE))+SI((ANNEE+1)

EXC_LDJ

Lettre dominicale dans le calendrier julien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(MOD(ANNEE;4)=0;CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE-ENT(ANNEE/100)*100)-ENT((ANNEE -ENT(ANNEE/100)*100)/4);7)+1;"B";"C";"D";"E";"F";"G";"A");"")&CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE -ENT(ANNEE/100)*100)-ENT((ANNEE-ENT(ANNEE/100)*100)/4);7)+1;"A";"B";"C";"D";"E";"F";"G")

EXC_NO

Nombre d'or dans les calendriers julien et grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(ANNEE;19)+1

EXC_PQ1CTRLG

Controle de l'année pour la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(ANNÉE

EXC_PQ1JG

Jour de la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11*MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114;31)+1

EXC_PQ1JJ

Jour de la date de Pâques solaire dans le calendrier julien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=MOD(MOD(19*MOD(ANNEE;19)+15;30)+MOD(2*MOD(ANNEE;4)+4*MOD(ANNEE;7) -MOD(19*MOD(ANNEE;19)+15;30)+34;7)+114;31)+1

EXC_PQ1MG

Mois de la date de Pâques dans le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=ENT((MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11*MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114)/31)

EXC_PQ1MJ

Mois de la date de Pâques dans le calendrier julien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=ENT((MOD(19*MOD(ANNEE;19)+15;30)+MOD(2*MOD(ANNEE;4)+4*MOD(ANNEE;7) -MOD(19*MOD(ANNEE;19)+15;30)+34;7)+114)/31)

EXC_PQ2

date de Pâques

Année dans A1
Dans une autre cellule (au format date) : =ARRONDI(DATE(A1;4;MOD(234-11*MOD(A1;19);30))/7;)*7-6

EXC_SJJ

Jour de la semaine à partir du jour julien. Merci à Daniel LACROZE-MARTY
Nommer JJ la cellule qui contient le jour julien

=CHOISIR(MOD(JJ+1,5;7)+1;"dimanche";"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi")

EXC_NBJJ

Nombre de jours dans l'année pour le calendrier julien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(MOD(ANNEE ;4)=0 ;366 ;365)

EXC_NBJG

Nombre de jours dans l'année pour le calendrier grégorien. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année

=SI(MOD(ANNEE ;400)=0 ;366 ;SI(MOD(ANNEE ;100)=0 ;365 ;SI(MOD(ANNEE ;4)=0 ;366 ;365)))

EXC_DTJJ

Obtenir la date à partir du jour julien. Merci à Daniel LACROZE-MARTY
Nommer JJ la cellule qui contient le jour julien. Nommer d'autres cellules JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES.

Dans la cellule JOUR : =SI(ENT(JJ+0,5) ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524 -ENT(365,25*ENT((SI(ENT(JJ+0,5) ENT(JJ+0,5);ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5) -1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001))

Dans la cellule MOIS : =SI(ENT((SI(ENT(JJ+0,5)

Dans la cellule ANNEE : =SI(MOIS>2,5;ENT((SI(ENT(JJ+0,5) +ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524-122,1) /365,25)-4715)

Dans la cellule HEURES : =ENT((JJ+0,5-ENT(JJ+0,5))*24)

Dans la cellule MINUTES : =ENT((JJ+0,5-ENT(JJ+0,5))*1440-ENT(HEURES*60))

Dans la cellule SECONDES : =(JJ+0,5-ENT(JJ+0,5))*86400-HEURES*3600-MINUTES*60

EXC_SUNJJ

Obtenir le jour julien à partir d'une position du soleil. Merci à Daniel LACROZE-MARTY
Nommer ANNEE la cellule qui contient l'année et POSITION celle qui contient la position du soleil (en degrés décimaux 0 à 360). Nommer d'autres cellules JJ1, T1, M1, JJ2, T2, M2, JJ3, T3, M3, JJ4, T4, M4, JJ5, T5, M5, JJ.
Pour obtenir les solstices et équinoxes, POSITION prendre donc les valeurs 0, 90,180 ou 270

Dans la cellule JJ1 : =(ANNEE+POSITION/360)*365,2422+1721141,3

Dans la cellule T1 : =(JJ1-2415020)/36525

Dans la cellule M1 : =6,256583522+628,301945727*T1-0,000002618*T1*T1-0,000000058*T1*T1*T1

Dans la cellule JJ2 : =JJ1+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T1
+0,00000528*T1*T1+(0,033500897-0,000083584*T1-0,000000244*T1*T1) *SIN(M1)
+(0,000350706-0,000001745*T1)*SIN(2*M1)+0,000005114*SIN(3*M1)-0,0000993092-0,000083601*SIN(4,523544355 -33,7571461*T1)))

Dans la cellule T2 : =(JJ2-2415020)/36525

Dans la cellule M2 : =6,256583522+628,301945727*T2-0,000002618*T2*T2-0,000000058*T2*T2*T2

Dans la cellule JJ3 : =JJ2+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T2
+0,00000528*T2*T2+(0,033500897-0,000083584*T2-0,000000244*T2*T2) *SIN(M2)
+(0,000350706-0,000001745*T2)*SIN(2*M2)+0,000005114*SIN(3*M2)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T2)))

Dans la cellule T3 : =(JJ3-2415020)/36525

Dans la cellule M3 : =6,256583522+628,301945727*T3-0,000002618*T3*T3-0,000000058*T3*T3*T3

Dans la cellule JJ4 : =JJ3+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T3
+0,00000528*T3*T3+(0,033500897-0,000083584*T3-0,000000244*T3*T3 )*SIN(M3)
+(0,000350706-0,000001745*T3)*SIN(2*M3)+0,000005114*SIN(3*M3)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T3)))

Dans la cellule T4 : =(JJ4-2415020)/36525

Dans la cellule M4 : =6,256583522+628,301945727*T4-0,000002618*T4*T4-0,000000058*T4*T4*T4

Dans la cellule JJ5 : =JJ4+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T4
+0,00000528*T4*T4+(0,033500897-0,000083584*T4-0,000000244*T4*T4) *SIN(M4)
+(0,000350706-0,000001745*T4)*SIN(2*M4)+0,000005114*SIN(3*M4)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T4)))

Dans la cellule T5 : =(JJ5-2415020)/36525

Dans la cellule M5 : =6,256583522+628,301945727*T5-0,000002618*T5*T5-0,000000058*T5*T5*T5

Dans la cellule JJ (résultat...ouf !!) : =JJ5+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904*T5 +
0,00000528*T5*T5+(0,033500897-0,000083584*T5-0,000000244*T5*T5) *SIN(M5)
+(0,000350706-0,000001745*T5)*SIN(2*M5)+0,000005114*SIN(3*M5)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T5)))

XC_J_JG

Calcul du jour julien à partir de date et heure (julien ou grégorien) . Merci à Daniel LACROZE-MARTY
Nommer JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES les cellules qui vont recevoir les données correspondantes.

Jour julien (0 h) : =ENT(365,25*SI(MOIS +13;MOIS+1)))+JOUR+1720994,5+SI(ANNÉE*10000+MOIS*100+JOUR 0;2-ENT(SI(MOIS

Jour julien (h mn s) : =ENT(365,25*SI(MOIS +13;MOIS+1)))+JOUR+HEURES/24+MINUTES/1440+SECONDES/86400 +1720994,5
+SI(ANNÉE*10000+MOIS*100+JOUR

XC_NUMJ_JG

Calcul du numéro de jour dans l'année à partir d'une date (julien ou grégorien). Merci à Nicolas DELONG
Nommer JOUR, MOIS, ANNEE les cellules qui vont recevoir les données correspondantes.

Numéro du jour =ENT(275*MOIS/9)-SI(SI(ANNEE0;MOD(ANNEE;400)=0)));1;2)*ENT((MOIS+9)/12)+JOUR-30

XC_GREC_BIS

Calcul des années bissextiles dans le calendrier grec moderne qui ne suit pas les règles grégoriennes. Merci encore Daniel LACROZE-MARTY
Nommer JOUR, MOIS, ANNEE les cellules qui vont recevoir les données correspondantes.

Nommer ANNEE la cellule qui contient l'année grecque.

Mettre, dans un autre cellule, la formule =SI(OU(MOD(ANNEE;900)=200;MOD(ANNEE;900)=600);366;SI(MOD(ANNEE;100)=0;365;SI(MOD(ANNEE;4)=0;366;365)))
qui donnera le nombre de jours de cette année.

XC_NL

Encore une série de formules dues à Daniel LACROZE-MARTY.
Elle vaut son pesant d'or tant elle est rare. Elle permet d'obtenir le jour julien de la nouvelle lune la plus proche d'une date grégorienne donnée.
Combinée à EXC_DTJJ, elle convertit ce jour julien en date du calendrier grégorien.
Elle mérite bien qu'on se donne la peine de nommer quelques cellules. Chapeau Daniel.

Nommer respectivement JOUR, MOIS, ANNEE les cellules qui vont contenir la date pour laquelle on veut connaître la date de nouvelle lune la plus proche

Nommer d'autres cellules NLJJa, NLk, NLT, NLJJm, NLM, NLM1, NLF, JJ.
JJ affichera le Jour Julien de la nouvelle lune la plus proche de notre date initiale.

Ces différentes cellules nommées vont respectivement contenir les formules suivantes :

Formule dans cellule nommée NLJJa : =ENT(275*MOIS/9)-SI(OU(ET(ANNEE1582;ANNEE/4-ENT(ANNEE/4)=0;ANNEE/400-ENT(ANNEE/400)0));1;2)*ENT((MOIS+9)/12)+JOUR-30

Formule dans cellule nommée NLk : =ARRONDI((ANNEE+NLJJa/365,25-1900)*12,3685;0)

Formule dans cellule nommée NLT : =NLk/1236,85

Formule dans cellule nommée NLJJm : =2415020,75933+29,53058868*NLk+0,0001178*NLT*NLT -0,000000155*NLT*NLT*NLT+0,00033*SIN(2,9070204+2,31901898*NLT-0,0001601*NLT*NLT)

Formule dans cellule nommée NLM : =6,26964504+0,50798429*NLk-0,0000005812*NLT*NLT -0,0000000606*NLT*NLT*NLT

Formule dans cellule nommée NLM1 : =5,34114908+6,73377553*NLk+0,00018728*NLT*NLT+0,0000002157*NLT*NLT*NLT

Formule dans cellule nommée NLF : =0,3716923+6,81848663*NLk-0,000028847*NLT*NLT-0,00000004171*NLT*NLT*NLT

Formule dans cellule nommée JJ : =NLJJm+0,0021*SIN(2*NLM)-0,0004*SIN(3*NLM1)-0,0004*SIN(2*NLF-NLM) - 0,0006*SIN(2*NLF+NLM1)+(0,1734-0,000393*NLT)*SIN(NLM) -0,4068*SIN(NLM1)+0,0161*SIN(2*NLM1)+0,0104*SIN(NLF*2)- 0,0051*SIN(NLM+NLM1)-0,0074*SIN(NLM -NLM1)+0,0004*SIN(2*NLF+NLM)+0,001*SIN(2*NLF-NLM1)+0,0005*SIN(NLM+2*NLM1)

Pour obtenir la date de la pleine lune au lieu de la nouvelle lune, rajouter 0,5 à NLk

XC_SUNLC

Heures de lever et coucher du Soleil pour un jour déterminé

1) Commencer par copier-coller dans un module VBA les fonctions qui se trouvent ici

rappel de la procédure : Copier toutes les formules d'un coup.
Dans Excel, appeler l'éditeur VB à l'aide du raccourci clavier Alt F11
Dans le menu INSERTION de l'éditeur, cliquer sur MODULE
Coller les fonctions dans ce module
Retourner sur la feuille Excel

2) Dans trois cellules, entrer le jour, le mois, l'année (ex : 10 en A1 ; 07 en A2 ; 2005 en A3)
Dans deux autres cellules, entrer la longitude et la latitude du lieu.
Les longitudes Ouest sont négatives, les chiffres sont des valeurs décimales des degrés et minutes.
Par exemple, pour Paris mettre en B1 la valeur 48,87 (latitude 48°52) et en B2 la valeur 2,33 (longitude 2°20 E)

3) Dans une autre cellule (D1 par exemple), appeler la fonction personnalisée LEVER et pointer sur les bonnes cellules des différentes variables demandées. Ce qui donnera pour notre exemple =lever(B1;B2;A1;A2;A3)
Passer la cellule D1 au format HEURE type 13:30

4) Faire la même chose que 3) pour la fonction COUCHER dans une autre cellule. La formule de la cellule sera donc
=coucher(B1;B2;A1;A2;A3)

Nos pages à ne pas manquer