Soru İş Günü sayısını bulma

[sirkülasyon]

Private Sub ComboBox7_Change()
If ComboBox7.ListIndex > -1 And ComboBox8.ListIndex > -1 Then
        TextBox25.Text = Format(DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 1, 1), "dd.mm.yyyy") & " - " & _
                        Format(DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 2, 1) - 1, "dd.mm.yyyy")
    End If
End Sub
Private Sub ComboBox8_Change()
If ComboBox7.ListIndex > -1 And ComboBox8.ListIndex > -1 Then
        TextBox25.Text = Format(DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 1, 1), "dd.mm.yyyy") & " - " & _
                        Format(DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 2, 1) - 1, "dd.mm.yyyy")
    End If
End Sub

ComboBox7 yıl "2021" seçiliyor
ComboBox8 ay " Ocak" seçiliyor
TextBox25 Dönem "01/01/2021 - 31/01/2021" formatında bilgi geliyor.
TextBox26' ya Seçilen yıl ve aya göre gelen dönem içerisinde kaç iş günü var ise nasıl yazdırabilirim?

 

[ÖmerFaruk]

Kendinize uyarlayabilirsiniz
Date1 = DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 1, 1)
Date2 = DateSerial(ComboBox7.Text, ComboBox8.ListIndex + 2, 1) - 1
İşGünü = WorksheetFunction.NetworkDays(Date1, Date2)

 

[sirkülasyon]

Sayın Ömer Faruk
Teşekkür eder, Saygılarımı sunarım