Retourne le nombre de mois entre 2 dates

[Stephane Maillard]

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