Heure en jour Julien

**grimpatauzore** · 22/01/2010, 11h12

bonjour
je voudrais affiché sur exel l'heure en jour julien.
pour cela j'ai le programme pour calculé l'h en jour julien mais je n'arrive pas a l'exécuté sous VBA.

voici le programme pour calculé l'heure en jour julien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
long double calcul_jour_julien(long double jour, long double mois, long double annee, long double heure, long double minute, long double seconde)            //déclaration des variables
{ 
long double month, year, day, a, b, jour_julien; 			//déclaration des variables
 
day=jour+heure/24.0+minute/1440.0+seconde/86400.0; 	// initialisation des constantes
year=annee; 
month=mois; 
 
if(month==1 || month==2)        // prise en compte du mois de février de 28 jours
{ 
year=year-1.0; 
month=month+12.0; 
} 
 
a=int(year/100.0); 		// prise en compte des années bissextiles
b=2-a+int(a/4.0); 
 
jour_julien=int(365.25*(year+4716.0))+int(30.6001*(month+1.0))+day+b-1524.5; 
return jour_julien; 
}