The following is a simplified version (9 lines of code) I was able to figure out for calculating the total number of business days between two dates.
Code:
Dim BusinessDays As Integer
Dim TotalDays As Integer
Dim Sunday As Integer
Dim Saturday As Integer
TotalDays = DateDiff("d", [txtBeginDateRangeFilterCalculator] - 1, [txtEndDateRangeFilterCalculator], vbSunday)
Sunday = DateDiff("ww", [txtBeginDateRangeFilterCalculator], [txtEndDateRangeFilterCalculator], 1)
Saturday = DateDiff("ww", [txtBeginDateRangeFilterCalculator], [txtEndDateRangeFilterCalculator], 7)
BusinessDays = TotalDays - Sunday - Saturday
Me![txtBusinessDaysCalculated] = BusinessDays
The following is an image of my calculator followed by the corresponding code:
Code:
Private Sub btnCalculate_Click()
On Error GoTo btnCalculate_Click_Err
'Calculate Number of Days, Hours, and Minutes
Me![txtDateDaysCalculated] = DateDiff("d", [txtBeginDateRangeFilterCalculator] - 1, [txtEndDateRangeFilterCalculator], vbSunday)
Me![txtDateHoursCalculated] = DateDiff("h", [txtBeginDateRangeFilterCalculator] - 1, [txtEndDateRangeFilterCalculator], vbSunday)
Me![txtDateWeeksCalculated] = [txtDateDaysCalculated] / 7
Me![txtTimeHoursCalculated] = Int(DateDiff("n", [txtBeginTimeRangeFilterCalculator], [txtEndTimeRangeFilterCalculator]) / 60)
Me![txtTimeMinutesCalculated] = Format(DateDiff("n", [txtBeginTimeRangeFilterCalculator], [txtEndTimeRangeFilterCalculator]) Mod 60, "00")
Me![txtHourFraction] = [txtMinutesToCalculate] / 60
'Calculate Number of Business Days
Dim BusinessDays As Integer
Dim TotalDays As Integer
Dim Sunday As Integer
Dim Saturday As Integer
TotalDays = DateDiff("d", [txtBeginDateRangeFilterCalculator] - 1, [txtEndDateRangeFilterCalculator], vbSunday)
Sunday = DateDiff("ww", [txtBeginDateRangeFilterCalculator], [txtEndDateRangeFilterCalculator], 1)
Saturday = DateDiff("ww", [txtBeginDateRangeFilterCalculator], [txtEndDateRangeFilterCalculator], 7)
BusinessDays = TotalDays - Sunday - Saturday
Me![txtDateBusinessDaysCalculated] = BusinessDays
btnCalculate_Click_Exit:
Exit Sub
btnCalculate_Click_Err:
Beep
MsgBox Err.Description, vbOKOnly, ""
Resume btnCalculate_Click_Exit
End Sub