|
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
|