Sn. ozanakkaya ilginiz için çok teşekkür ederim lakin fonksiyon yine yanlış hesapliyor. Sizin paylaştığınız dosyada denendiği zaman doğru çalışıyor ancak ikinci izni silip yalnızca ocak ayı içine örneğin 21 günlük izin yazdığım zaman şubat, mart, nisan..... ve snrası aylarda gün sayısını hep eksik gösteriyor.

EDİT:

sn.ozanakkaya fonksiyona şöyle bişey ekledim farklı kombinasyonlarda da denedim sanki oldu gibi. Sizde bakabilir misiniz? Bu şekilde doğru çalışır mı?

    For GTarih = rskayit!Bsl To rskayit!Bts
        If GunS = 0 Then Exit For
        If Trim(Mid(GYilAy, 5, Len(GYilAy))) >= CLng(Format(GTarih, "m")) Then