Adding Holidays back in

[vbagwell1967]

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

[June7]

What happens when you run the code? Error message, wrong results, nothing? What do you want to happen?

[vbagwell1967]

It sees the weekends and omits them. It does nothing with the Holidays, no error message. I need for it to exclude Holidays as well.

[June7]

The function works for me. Holidays excluded.

However, it also does not count the completion date even if it is a weekday. If you want to count the completion date then use <=.

Do While DAssignDate <= DCompleteDate

Debug your code. Set breakpoint and step execute.

Holiday_Date is a date/time type field? You use U.S. date format?

[vbagwell1967]

Watch : : DCount("*", "dbo_tblHOLIDAYS", "[Holiday_Date] = #" & DAssignDate & "#") : <Out of context> : Variant/Empty : CountDays_Design.fCalcWorkingDays_DAssgn is the message I am getting. I am looking up the "out of context"

[June7]

First time I've ever tried to use Watch. I get the same info, however, the function returns correct result. I've always just used breakpoints and Debug statements.

[ssanfu]

The VALUE "<Out of context>" is typical for any watch expression when/if the code is not executing.