Julian Day : quelqu'un connait il la formule?

A

andré

XLDnaute Barbatruc

• 22 Avril 2005

• #2

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é

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 22 Avril 2005

• #3

Bonjour Boris, André

Code:

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

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

Code:

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

 

Vote positif 0 Vote négatif

B

boris

Guest

• 26 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 26 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif