Arkadaşlar herkese merhaba. Günlerdir yapamadığım bir hesaplama var. Acil olduğu için başaramayınca yardım talep ediyorum.

Aşağıdaki fonksiyon ile form üzerinden seçtiğim tarihe göre ay içine düşen izinli gün sayılarını hesap ediyorum. Ancak sonrada mevzuat değişikliği oldu ve yıl içindeki ilk 12 günlük yıllık izinler ücretsiz oldu. Dolayısı ile bu saydırmada onu dışlamam gerekiyor. Bu konuda fikir sunabilecek olan var mı?

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, "yyyym")) = YilAy Then SyGn = SyGn + 1

    

    Next Tarih

GunSayisi = SyGn

End Function

Kişiye ait yıl içindeki bütün izinlerin toplamına da aşağıdaki şekilde bakıyorum.....

Tpl = Dsum ("[İZİN SÜRESİ]", "Tbl_izinler", "[PERSONEL TC]= '" & TC & "'" & " And [AKTİF]=-1" & " And [İZİN BAŞLAMA]>=#01/01/2017#" & " And [İZİN BİTİŞ]<=#31/12/2017#")