Function isgunu(ilktrh, sontrh)
 
Dim hafta As Integer
Const pazar = 1
Const ctesi = 7
 
Select Case Weekday(ilktrh)
Case pazar
ilktrh = ilktrh + 1
Case ctesi
ilktrh = ilktrh + 1
End Select
 
Select Case Weekday(sontrh)
Case pazar
sontrh = sontrh - 2
Case ctesi
sontrh = sontrh - 1
End Select
 
hafta = DateDiff("ww", ilktrh, sontrh)
isgunu = hafta * 5 + Weekday(sontrh) - Weekday(ilktrh)
If isgunu < 0 Then isgunu = 0
End Function

Public Function isgunu(ilktrh, sontrh)
 
Dim hafta As Integer
isgunu = 0
For i = 0 To sontrh - ilktrh
 
If Format(ilktrh + i, "ddd") <> "Per" _
   And Format(ilktrh + i, "ddd") <> "Cmt" _
   And Format(ilktrh + i, "ddd") <> "Paz" Then _
        isgunu = isgunu + 1
Next
 
End Function