I have everything in my project working except Holidays. Can someone please tell me what is wrong with the following code - I got it off this site. Some wonderful guy helped me out.
Public Function fCalcWorkingDays_DAssgn(DAssignDate As Date, DCompleteDate As Date) As Integer
Dim intCountDAssn As Integer
intCountDAssn = 0
Do While DAssignDate < DCompleteDate
Select Case Weekday(DAssignDate)
Case Is = 1, 7
intCountDAssn = intCountDAssn + 0
Case Is = 2, 3, 4, 5, 6
If DCount("*", "dbo_tblHOLIDAYS", "[Holiday_Date] = #" & DAssignDate & "#") = 0 Then
intCountDAssn = intCountDAssn + 1
End If
End Select
DAssignDate = DAssignDate + 1
Loop
fCalcWorkingDays_DAssgn = intCountDAssn
End Function