Ekli dosyamda bulunan sorgular ile izin toplama ve rapor aldığım ay içine denk gelen sürelerin gün sayısını hesap ettiğim GunSayisi() adında bir fonksiyon var. Buraya kadar sıkıntı yok.

Yıl içinde ilk 10 günlük yıllık izne dahil olan izinler hesaba dahil edilmeyecek. Örneğin ay içinde 5+7 günlük iki izin alan kişi için rapor ekranında 2 değerini vermesini istiyorum. bundan sonraki aylar için aldığı her izni. 
Kısacası tbl_izintürlerinde yıllık izne dahil seçeneği olan izinler için ilk 10 günlük izin ücretsiz.

Yardım edecek arkadaşlara teşekkürler.... Yalnız mevcut sistem üzerinden yaparsak çok memnun olurum.

Public Function GunSayisi(Bs, Bt As Date, YilAy As Long) As Long

Dim tarih As Date, SyGn As Long

For tarih = Bs To Bt

If CLng(Format(tarih, "yyyymm")) = YilAy Then SyGn = SyGn + 1

Next tarih

GunSayisi = SyGn

End Function