Tarih ler arasındaki Gün Ay Yıl

[Huseyinkis]

iki tarih arasında bana kaç gün kaç ay çak yıl olduğunu çıkaran bi formul yapabilirmisiniz.

örnek 09.02.2000 Giriş 08.03.2006 çıkış..

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin.

 

[ahmet uguz]

daha önce bu siteden bulduğum bir örnek
belki işine yarayabilir

 

[Recep İpek]

Kullanıcı Tanımlı Fonksiyon (KTF) olarak isterseniz yabancı bir siteden bulduğum kodlar aşağıdadır.

Function TarihFarki(İlkTarih As Date, SonTarih As Date) As String
    Dim Y As Integer
    Dim M As Integer
    Dim D As Integer
    Dim Temp1 As Date
    Temp1 = DateSerial(Year(SonTarih), Month(İlkTarih), Day(İlkTarih))
    Y = Year(SonTarih) - Year(İlkTarih) + (Temp1 > SonTarih)
    M = Month(SonTarih) - Month(İlkTarih) - (12 * (Temp1 > SonTarih))
    D = Day(SonTarih) - Day(İlkTarih)
    If D < 0 Then
        M = M - 1
        D = Day(DateSerial(Year(SonTarih), Month(SonTarih), 0)) + D
    End If
    TarihFarki = Y & " Yıl " & M & " Ay " & D & " Gün"
End Function