différence entre deux dates en année/mois
- Clique:
- 28668
Réponse
Une petite fonction VBA toute simple qui permet de retourner le nombre d'année et de mois entre deux dates
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Function F_DiffEnAnneeMois(date1, date2) ' on détermine le nombre de mois entre les 2 dates nbMois = DateDiff("m", date1, date2) ' on calcul le nombre d'année entière nbannee = CInt(nbMois / 12) ' puis le nombre de mois restant nbMoisrestant = nbMois - (nbannee * 12) ' si nombre de mois restant est négatif (arrondie de l'année If nbMoisrestant < 0 Then ' on décale nbannee = nbannee - 1 nbMoisrestant = nbMoisrestant + 12 End If ' on met en forme l'affichage des années et des mois If nbannee = 1 Then szannee = "1 année " ElseIf nbannee > 1 Then szannee = nbannee & " années " End If If nbMoisrestant > 0 Then szmoisrestant = nbMoisrestant & " mois" End If F_convMois2AnMois = szannee & szmoisrestant End Function |