Nombre d'année bissextile

[dhiouf]

Bonjour a tous!

Y a t-il un code VBA qui permet de savoir combien d’année bissextile entre deux date ?

Exemple
Entre le 27/11/1993 et le 26/09/2011 il y a 4 année bissextile (1996,2000,2004,2008)

Merci d’avance.

 

[tototiti2008]

Re : Nombre d'année bissextile

Bonjour dhiouf,

Peut-être, si date de début en A1 et date de fin en B1

=SOMMEPROD((MOIS(LIGNE(INDIRECT(A1&":"&B1)))=2)*(JOUR(LIGNE(INDIRECT(A1&":"&B1)))=29))

Edit : Oups, tu voulais un code VBA...

Function NbAnBissex(DateDeb As Date, DateFin As Date) As Long
Dim AnDeb As Long, AnFin As Long, i As Long
    NbAnBissex = 0
    AnDeb = Year(DateDeb)
    AnFin = Year(DateFin)
    If Month(DateDeb) > 2 Then AnDeb = AnDeb + 1
    If DateFin <= DateSerial(AnFin, 2, 28) Then AnFin = AnFin - 1
    For i = AnDeb To AnFin
        If Month(DateSerial(i, 2, 29)) = 2 Then NbAnBissex = NbAnBissex + 1
    Next i
End Function

 

[pierrejean]

Re : Nombre d'année bissextile

Bonjour dhiouf

a partir des definitions
Année bissextile - Wikipédia

2 fonctions personnalisées

Edit: Salut tototiti

 

[pierrejean]

Re : Nombre d'année bissextile

Re

A noter la nuance entre mes formules et celle de tototiti

tototiti ne comptabilise pas les années si le 29/2 d'une année bissextile n'est pas inclus dans l'intervalle des dates

 

[dhiouf]

Re : Nombre d'année bissextile

Bonjour tototiti2008,

Merci pour ta réponse
comment afficher le résultat via un msgbox

 

[tototiti2008]

Re : Nombre d'année bissextile

Bonjour PierreJean ,
Re,

Pour afficher le résultat d'une fonction dans une Msgbox, que ce soit celles de PierreJean ou la mienne, en admettant que tes dates sont en cellules A1 et B1 de la feuille active

Msgbox nb_bissex(Range("A1").value, Range("B1").value)

ou

Msgbox an_bissex(Range("A1").value, Range("B1").value)

ou

Msgbox NbAnBissex(Range("A1").value, Range("B1").value)

 

[dhiouf]

Re : Nombre d'année bissextile

Ok j'ai arriver

MsgBox "Nombre d'année bissextile : " & NbAnBissex(TextBox1.Text, TextBox2.Text)

Merci a tous

 

[TempusFugit]

Re : Nombre d'année bissextile

Bonjour Mesdames, Messieurs

Il y a une condition supplémentaire pour qu'une année soit bissextile.

Voir le lien ci-dessous
Méthode pour déterminer si une année est une année bissextile

Post Scriptum: Excusez-moi, je n'avais pas vu tous les messages.

 

[hoerwind]

Re : Nombre d'année bissextile

Bonjour, salut tototiti et perrejean,

Petite formule bien simple, mais uniquement valable entre 1901 et 2099 :

A1 : année début
A2 : année fin
=(PLANCHER(A2;4)-PLAFOND(A1;4))/4+1