Charlie BENKE

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