iki tarih arasındaki gün,ay, yıl farkı

[erdinccayirdere]

sevgili arkadaşlar iki tarih arasındaki gün, ay , yıl farkını hesaplayan bir fonksiyon üretmeye çalıştım.Bu fonksiyonlardan sadece yıl fırkını hesaplayanı aşağıdaki gibidir ama her türlü koşulda çalışmıyor. Yardımcı olabilirseniz sevinirim.Bunu çözebilirsek gün ve ay farkınıda otomatikman bulmuş olacağım.
Şimdiden teşekkür ederim.
Function YılFarkı(GirişTarihi As Date, ÇıkışTarihi As Date)
Dim DüşenYıl As Integer
Dim DüşenAy As Integer
If Day(ÇıkışTarihi) < Day(GirişTarihi) Then
DüşenAy = 1
Else
DüşenAy = 0
End If
If Month(ÇıkışTarihi) - DüşenAy < Month(ÇıkışTarihi) Then
DüşenYıl = 1
Else
DüşenYıl = 0
End If
YılFarkı = Year(ÇıkışTarihi) - DüşenYıl - Year(GirişTarihi)
End Function

 

[nesmeh]

İşinizi görürmü bilmem ama ben bunu
Yıl Farkı için
=ETARİHLİ(C6;C7;"Y")
Ay Farkı İçin
=ETARİHLİ(C6;C7;"YM")
Gün Farkı İçin
=ETARİHLİ(C6;C7;"MD")

İşimi görüyor İnşallah sizinde görür.

 

[erdinccayirdere]

arkadaşlar sorunu da çözdüm zaten
If Month(ÇıkışTarihi) - DüşenAy < Month(ÇıkışTarihi) Then
işaretli yer GirişTarihi olacak