Retourne le nombre de mois entre 2 dates
Publié: 10 Mai 2007 à 13:59- Code : Tout sélectionner
Function NombreDeMois(DateDebut As String, DateFin As String) As String
Dim Mois1 As Integer
Dim Mois2 As Integer
Dim Annee1 As Integer
Dim Annee2 As Integer
Dim Annee As Integer
Mois1 = Month(DateDebut)
Mois2 = Month(DateFin)
Annee1 = Year(DateDebut)
Annee2 = Year(DateFin)
Annee = Annee2 - Annee1
Select Case Annee
Case 0
NombreDeMois = Cstr(Mois2 - Mois1) & " Mois"
Case 1
Mois1 = 12 - Mois1
NombreDeMois = Cstr(Mois1 + Mois2) & " Mois"
Case Else
Mois1 = 12 - Mois1
NombreDeMois = Cstr((Annee*12) + Mois1 + Mois2) & " Mois"
End Select
End Function
Utilisation : Messagebox NombreDeMois("04/08/2003", "04/11/2004")