Amélioration d'une fonction

DIFDATE = NbAn & NbM & " et " & nbj

Function DIFDATE(Dated As Date, Datef As Date) As String
  Dim AN As Integer, MN As Integer, JN As Integer
  Dim AA As Integer, MA As Integer, JA As Integer
  Dim Na As Integer, Nm As Integer, Nj As Integer
  Dim NJMP As Variant
  If Not IsNull(Dated) And Not IsNull(Datef) Then
    AN = Val(Format(Dated, "yyyy"))
    MN = Val(Format(Dated, "mm"))
    JN = Val(Format(Dated, "dd"))


    AA = Val(Format(Datef, "yyyy"))
    MA = Val(Format(Datef, "mm"))
    JA = Val(Format(Datef, "dd"))


    NJMP = "01/" & MA & "/" & AA
    NJMP = DateValue(NJMP) - 1
    NJMP = Val(Format(NJMP, "dd"))


    If JN > JA Then
      JA = JA + NJMP
      MA = MA - 1
    End If


    If MN > MA Then
      MA = MA + 12
      AA = AA - 1
    End If


    Na = AA - AN
    Nm = MA - MN
    Nj = JA - JN


    If Na = 0 Then
      NbAn = ""
    Else
      NbAn = Str$(Na) & " an" & IIf(Na > 1, "s", "")
    End If
    If Nm = 0 Then
      Nbm = ""
    Else
      Nbm = IIf(Na > 0, ", ", "") & Str$(Nm) & " mois"
    End If
    If Nj = 0 Then
      Nbj = ""
    Else
      Nbj = IIf(Nm > 0, " et ", "") & Str$(Nj) & " jour" & IIf(Nj > 1, "s", "")
    End If


    DIFDATE = NbAn & Nbm & Nbj
  Else
    DIFDATE = ""
  End If
End Function

Function sDifDate(Dated As Date, Datef As Date) As String  Dim NbA As Integer, Nbm As Integer, Nbj As Integer
  Dim LibA As String, LibM As String, LibJ As String
  ' Calculer les écart en année, mois et jour
  NbA = DateDiff("yyyy", Dated, Datef)
  Nbm = DateDiff("m", Dated, Datef) - (NbA * 12)
  Nbj = DateDiff("d", DateSerial(Year(Datef), Month(Datef), 1), Datef)
  ' créer les libellés
  LibA = "": LibM = "": LibJ = ""
  If NbA = 0 Then LibA = "" Else LibA = Str$(NbA) & " an" & IIf(NbA > 1, "s", "")
  If Nbm = 0 Then LibM = "" Else LibM = IIf(NbA > 0, ", ", "") & Str$(Nbm) & " mois"
  If Nbj = 0 Then LibJ = "" Else LibJ = IIf(Nbm > 0, " et ", "") & Str$(Nbj) & " jour" & IIf(Nbj > 1, "s", "")
  ' Renvoyer le libellé
  sDifDate = LibA & LibM & LibJ
End Function

=DATEDIF(A5;B5;"Y")&SI(DATEDIF(A5;B5;"Y")>1;" ans et ";" an et ")&DATEDIF(A5;B5;"YD")&SI(DATEDIF(A5;B5;"YD")>1;" jours";" jour")

=DATEDIF(A5;B5;"Y")&SI(DATEDIF(A5;B5;"Y")>1;" ans, ";" an, ")&DATEDIF(A5;B5;"YM")&" mois et "&DATEDIF(A5;B5;"MD")&SI(DATEDIF(A5;B5;"MD")>1;" jours";" jour")