The following code calcuates the difference in work days between two
dates:
Function BusinessDays(PosHireDate, RepDate) As Long
BusinessDays = (DateDiff("d", PosHireDate, RepDate) - _
(DateDiff("ww", PosHireDate, RepDate) * 2) + 1) + _
(Weekday(PosHireDate) = vbSunday) + _...