Accueil Compétences Patterns Page Web ASP différence entre deux dates en année/mois

différence entre deux dates en année/mois

Clique:
11617

Réponse

Une petite fonction VBA toute simple qui permet de retourner le nombre d'année et de mois entre deux dates


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
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
 

 


Étiquette de cet article