Soru Textboxda pazar günlerini atlatarak hesaplama

[balanar]

TextBox6.Text = CLng(CDate(TextBox5.Text)) - CLng(CDate(TextBox4.Text)) + 1

arkadaşlar simdi ben bu kodla. İşlem yaptığımda

İZİN BİTİŞ TARİHİ (TextBox5.Text) - İZİN BAŞLANGIÇ TARİHİ (TextBox4.Text) + 1

izin gün sayısını doğru cıkartıyor. Fakat benim burada pazar günlerini atlatmam gerekiyor bunu nasıl yapabilirim?

ÖRNEK;
06.09.2021 - 10.09.2021 tarihleri ile 5 GÜN cıkıyor bu doğru fakat burada pazar yok..

06.09.2021 - 13.09.2021 tarihlerini girdiğimde arada birtane pazar olduğu için 7 gün cikarmasi lazım

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.

Sub test()
    Dim Gunler As Date
    Dim Say As Integer
    If IsDate(TextBox4.Text) And IsDate(TextBox5.Text) Then
        For Gunler = TextBox4.Text To TextBox5.Text
          If WorksheetFunction.Weekday(Gunler, 2) <> 7 Then
            Say = Say + 1
          End If
        Next
        TextBox6.Text = Say
    End If
End Sub