Calculating Working Days....

[josephsimonbenn]

I need to calculate the number of business days employees work in each month using vba. The problem is, some employees work 3 days, some 4 and some 5.

So i want to be able to turn on/off the days via checkboxes.

I found this code... which will basically count the days that aren't saturday or sunday, but Can someone modify this code so that the days are only counted if the checkboxes are selected....

Checkboxes are called: ChkSunday, ChkMonday, ChkTuesday, ChkWednesday, ChkThursday, ChkFriday, ChkSaturday.

Public Function WorkingDays(StartDate As Date, EndDate As Date) As Integer
On Error GoTo Err_WorkingDays
 
Dim intCount As Integer
 
intCount = 0
Do While StartDate <= EndDate
 
Select Case Weekday(StartDate)
Case Is = 1, 7
intCount = intCount
Case Is = 2, 3, 4, 5, 6
intCount = intCount + 1
End Select
StartDate = StartDate + 1
Loop
WorkingDays = intCount
 
Exit_WorkingDays:
Exit Function
 
Err_WorkingDays:
Select Case Err
 
Case Else
MsgBox Err.Description
Resume Exit_WorkingDays
End Select
 
End Function

I attempted to do it myself using an array but it didnt work out!!

Pleeeeeeeeeeeeaaaaaaaaaseeeeeeeeee help :) Cheers.