i

Conversion jour julien en date grégorienne


Ces formules ont été écrites par Daniel LACROZE-MARTY (merci à lui) pour

Excel, mais fonctionnent très bien pour Calc :

J'ai vérifié les résultats avec le calculateur de l'Institut de

Mécanique Céleste

http://www.imcce.fr/fr/grandpublic/temps/jour_julien.php


- La cellule A1 contient le jour julien


- la cellule B1 donnant le jour doit contenir la formule :

=SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5) -1867216,25)/36524,25)/4))+1524

-ENT(365,25*ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524-122,1)/365,25))

-ENT(30,6001*ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5) ;

ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524

-ENT(365,25*ENT((SI(ENT(A1+0,5)<2299161 ;

ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)

-1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001))


- la cellule C1 donnant le mois doit contenir la formule :

=SI(ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)

-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524

-ENT(365,25*ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524

-122,1)/365,25)))/30,6001)<13,5;ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)

-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524

-ENT(365,25*ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001)

-1;ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524

-ENT(365,25*ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)-1867216,25)/36524,25)

-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001)-13)


- la cellule D1 donnant l'année doit contenir la formule :

=SI(C1>2,5;ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1+ENT((ENT(A1+0,5)

-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524-122,1)/365,25)

-4716;ENT((SI(ENT(A1+0,5)<2299161;ENT(A1+0,5);ENT(A1+0,5)+1

+ENT((ENT(A1+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(A1+0,5)-1867216,25)/36524,25)/4))+1524-122,1)

/365,25)-4715)


- la cellule E1 donnant les heures :

=ENT((A1+0,5-ENT(A1+0,5))*24)


- la cellule F1 donnant les minutes :

=ENT((A1+0,5-ENT(A1+0,5))*1440-ENT(E1*60))


- la cellule G1 donnant les secondes (arrondies si l'on veut)

=ARRONDI((A1+0,5-ENT(A1+0,5))*86400-E1*3600-F1*60;0)


Le lien où se trouvent d'autres calculs :

http://www.louisg.net/Formules.htm


J'ai vérifié les résultats avec le calculateur de l'Institut de

Mécanique Céleste

http://www.imcce.fr/fr/grandpublic/temps/jour_julien.php