Public Function GunSayiMi(YilAy As Long, Sicil As String) As String
Dim Tarih As Date, GnSy As Long
Dim IzKay As New ADODB.Recordset, Isaret, TplIz, YayIz As Long, SQLD As String
SQLD = "SELECT [İZİN BAŞLAMA] As Bsl, [İZİN BİTİŞ] As Bts From Tbl_izinler Where ((([PERSONEL TC])='" & Sicil & "') And (([İZİN YILI])='" & Mid(YilAy, 1, 4) & "') And (([İZİN TÜR ID])=6)) Order By [İZİN BAŞLAMA]"
TplIz = -11
IzKay.Open SQLD, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until IzKay.EOF
For Tarih = IzKay!Bsl To IzKay!Bts
     If YilAy > CLng(Format(Tarih, "yyyymm")) Then
         TplIz = IIf(TplIz >= -1, 0, TplIz + 1)
     ElseIf YilAy < CLng(Format(Tarih, "yyyymm")) Then
         Exit For
     ElseIf YilAy = CLng(Format(Tarih, "yyyymm")) Then
        TplIz = IIf(TplIz = -1, 1, TplIz + 1)
     End If
 
           Debug.Print Tarih, TplIz, Isaret
Next Tarih
IzKay.MoveNext
Loop
IzKay.Close: Set IzKay = Nothing
GnSy = DateDiff("d", DateSerial(CLng(Mid(YilAy, 1, 4)), CLng(Mid(YilAy, 5, Len(YilAy))), 1), DateAdd("m", 1, DateSerial(CLng(Mid(YilAy, 1, 4)), CLng(Mid(YilAy, 5, Len(YilAy))), 1)))
GunSayiMi = GnSy - IIf(TplIz < 0, 0, TplIz)
End Function