Calculate Working Days In The Current Month

[Hootie777]

Example Of The Problem:

A Bonus Is Paid At A Monthly Rate But Only For Days Worked
If The Employee Is Off Sick Or On Holliday He Loses That Days Portion Of His Monthly Bonus.

I Know What Days He/She has Worked And I Know The Bonus Amount.

I Want The Number Of Working Days InThe Current Month To Be Displayed Automatically.

I Know Of The Function "Networkdays" but can't use it for this purpose.

Thanx

Hootie

"Don't Look A Gift Horse In The Mouth"

 

[PaulBricker]

You can use this function to return the number of Workdays in a month if you are talking about Monday thur Friday as being the workdays. If you want to include Sunday or Saturday then you would have to adjust the If statement.
dteInput is just any date value.
Paul

Function WorkDaysInMonth(dteInput As Date) As Integer
    Dim intDays As Integer, workDays As Integer
    Dim i As Integer
    
    intDays = DateSerial(Year(dteInput), Month(dteInput) + 1, Day(dteInput)) _
        - DateSerial(Year(dteInput), Month(dteInput), Day(dteInput))
    
    For i = 1 To intDays
    If Weekday(Month(dteInput) & "/" & i & "/" & Year(dteInput)) = 1 Or Weekday(Month(dteInput) & "/" & i & "/" & Year(dteInput)) = 7 Then
    Else
    workDays = workDays + 1
    End If
    Next
   WorkDaysInMonth = workDays
     
End Function