Nbre de jours dans une année

Salut,

Je ne connais pas de fonction, bien une petite formule.
Voici deux exemples (format standard) :

=DATE(5;1;1)-DATE(4;1;1)
=MOIS.DECALER(AUJOURDHUI();12)-AUJOURDHUI()+1

Ândré

Une année est bissextile si elle est divisible par 4, sauf les siècles non divisible par 400.

ex : 1998 non bissextile
2000 bissextile
2004 bissextile
2100 non bissextile

Public Function NbJours(annee As Integer) As Integer
If annee Mod 4 = 0 Then
If annee Mod 100 = 0 And annee Mod 400 <> 0 Then NbJours = 365 _
Else NbJours = 366
Else
NbJours = 365
End If
End Function

Sub test()
MsgBox "Nombre de jours dans 1998 : " & NbJours(1998)
MsgBox "Nombre de jours dans 2000 : " & NbJours(2000)
MsgBox "Nombre de jours dans 2004 : " & NbJours(2004)
MsgBox "Nombre de jours dans 2003 : " & NbJours(2003)
MsgBox "Nombre de jours dans 2100 : " & NbJours(2100)
End Sub

Bonjour
Sinon pour faire simple
=DATE(2005;12;31)-DATE(2005;1;0)
donne le nombre de jours en 2005
Chris

Merci à vous, bonne fin de journée

Cdlt

Fred