- Function MonthlyWorkingDays(ByVal YearNumber As Integer, ByVal MonthNumber As Integer) As Integer
- Dim I As Integer
-
- I = Day(DateSerial(YearNumber, MonthNumber + 1, 0))
- While I > 0
- If Weekday(DateSerial(YearNumber, MonthNumber, I), vbMonday) < 6 Then
- MonthlyWorkingDays = MonthlyWorkingDays + 1
- End If
- I = I - 1
- Wend
- End Function
Function MonthlyWorkingDays(ByVal YearNumber As Integer, ByVal MonthNumber As Integer) As Integer
Dim I As Integer
I = Day(DateSerial(YearNumber, MonthNumber + 1, 0))
While I > 0
If Weekday(DateSerial(YearNumber, MonthNumber, I), vbMonday) < 6 Then
MonthlyWorkingDays = MonthlyWorkingDays + 1
End If
I = I - 1
Wend
End Function