Julian Day : quelqu'un connait il la formule?

[boris]

Je cherche a utliser le Julian Day dans une macro, et je ne sais pas comment faire...
Le Julian Day et le jour de l'année en cours, exprimé en un seul nombre.
exemple : le 14 fevrier est le Julian Day 045

un peu d'aide m'aiderait fortement.merci

 

[andré]

Salut,

En macro, je ne m'y connais pas.

mais la formule est : ='14.02.05'-'01.01.05'+1
Il suffit donc de l'enregistrer.

Si le 14.02.05 se trouve en A1 : =A1-DATE(ANNEE(A1);1;1)+1
cellule au format standard.

Ândré

 

[dg62]

Bonjour Boris, André

=A1-DATE(ANNEE(A1);1;0)

et en vba, adaptation d'un code trouvé sur internet

Function JourJulien(LaDate As Long) As String
Dim Vannee As Integer
Dim Vjour As Integer
Dim JDate As String

Vannee = Year(LaDate)
Vjour = DateDiff('d', DateSerial(Vannee, 1, 0), LaDate)
JourJulien = Vjour
End Function

Message édité par: dg62, à: 22/04/2005 17:05

 

[boris]

Merci beaucoup pour ces infos.
Mon second probleme est que je ne sais pas comment avoir la date du jour en vba :
L'equivalent du AUJOURDHUI(),
mais en vba.

Merci

 

[Denis]

Bonjour Boris, DG62, André et le Forum
ci-dessous la formule du jour, tu adapte pour le format d'affichage
Format(Now, 'dd/mm/yy')
Bon courage et à+
Denis