Public Function DateDiff_ze_bb(KUCUK_TARIH As Date, BUYUK_TARIH As Date) As String
Dim GUN&, AY%, YIL%
Dim GG As Date, GG2 As Date
 
    GUN = DateDiff("d", KUCUK_TARIH, BUYUK_TARIH)
    AY = Int((GUN Mod 365.25) / 30)
    YIL = Int(GUN \ 365.25)
    GG = DateAdd("yyyy", YIL, KUCUK_TARIH)
    GG2 = DateAdd("m", AY, GG)
 
    DateDiff_ze_bb = YIL & " YIL " & AY & " AY " & BUYUK_TARIH - GG2 & " GÜN  "
End Function