Function fark(ilktarih As Variant, sontarih As Variant) As Variant
Dim trz   As Integer
Dim osm   As Integer
   trz = DateDiff("m", ilktarih, sontarih) + (Day(sontarih) < Day(ilktarih))
   If Day(sontarih) < Day(ilktarih) Then
      osm = DateDiff("d", ilktarih, DateSerial(Year(ilktarih), Month(ilktarih) + 1, 0)) + Day(sontarih)
   Else
      osm = Day(sontarih) - Day(ilktarih)
   End If
   fark = LTrim(Str(trz \ 12)) & " Yıl " & LTrim(Str(trz Mod 12)) & " Ay " & LTrim(Str(osm)) & " Gün"
End Function

Function farktopla(a As Variant, b As Variant, c As Variant, d As Variant) As Variant
Dim trza   As Integer
Dim osma   As Integer
Dim ay As String
Dim gun As String
Dim yil As String
   trza = (DateDiff("m", a, b) + (Day(b) < Day(a))) + (DateDiff("m", c, d) + (Day(d) < Day(c)))
   If Day(b) < Day(a) Or Day(d) < Day(c) Then
      osma = ((DateDiff("d", a, DateSerial(Year(a), Month(a) + 1, 0)) + (DateDiff("d", c, DateSerial(Year(c), Month(c) + 1, 0))) + (Day(b)) + Day(d)))
   Else
      osma = ((Day(b) + Day(d)) - (Day(a) + Day(c)))
   End If
   yil = LTrim(Str(trza \ 12))
   ay = LTrim(Str(trza Mod 12))
   gun = LTrim(Str(osma))
   If gun >= 30 Then
   gun = gun - 30
   ay = ay + 1
   End If
   farktopla = yil & " Yıl " & ay & " Ay " & gun & " Gün"
End Function