Option Compare Database
Function GetWorkDays(dtDateIn As Date, dtDateOut As Date) As Integer
Dim x As Integer
Dim rs As Recordset
Dim db As Database
Dim strSQL As String
Dim dtIncrement As Date
strSQL = "Select HolDate from tblHolidays"
x = 0
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
dtIncrement = dtDateIn
Do Until dtIncrement = dtDateOut
Select Case Weekday(dtIncrement)
Case vbSaturday
x = x
Case vbSunday
x = x
Case Else
rs.FindFirst ("HolDate = # " & Format(dtIncrement, "mm/dd/yyyy") & "#")
If rs.NoMatch = True Then
x = x + 1
End If
End Select
dtIncrement = dtIncrement + 1
Loop
GetWorkDays = x
Set rs = Nothing
Set db = Nothing
End Function