İki Tarih Farkını "YIL-AY-GÜN" Veren Fonksiyon (DateDiff_ze_bb)

[Zeki Gürsoy]

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

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 = DateAdd("yyyy", YIL, KUCUK_TARIH)
    GG2 = DateAdd("m", AY, GG)

    DateDiff_ze_bb = YIL & " YIL " & AY & " AY " & BUYUK_TARIH - GG2 & " GÜN  "
End Function

 

[beab05]

Sevgili dostum Zeki, seninle çalışmak çok keyifliydi. Testlerde yaşadığımız komik anları unutamam

 

[Zeki Gürsoy]

:uyku: saatlerinden başka görüşemiyoruz n'apalım.

 

[Taruz]

Değerli dostlar ellerinize sağlık..

Çok faydalı bir fonksiyon hazırlamışsınız.. Özellikle 365,25 olayı çok zekice.

Selamlar..

 

[assenucler]

Sayın Zeki Gürsoy;

Emeği geçen ve paylaşıma sunan tüm dostlara sonsuz teşekkürler.

Selam ve sevgiler.