Tags
Author: Zeki Gürsoy - Replies: 21 - Views: 26855
İki Tarih Farkını "YIL-AY-GÜN" Veren Fonksiyon (DateDiff_ze_bb)
Sevgili dostum beab ile VBA' de iki tarih arası farkını "1 YIL 2 AY 12 GÜN" gibi formatta çeviren fonksiyon ihtiyacı olabileceğini düşündük.

Bu amaçla hazırladığımız fonksiyonun faydalı olması dileklerimizle...


[code=vba]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 = Da