G

#### Guest

here. It is used to calculate the number of days in a date range, the date

range is taken from a form 'Select Date Form' with fields 'txtStartDate' and

'txtEndDate'. I then need to take this number of days and multiply it by the

daily available time, giving me the available time over that number of days.

the daily available time is always the same. How do I use the answer from

the function to calculate this?

'---------------------------------------------------------------------------------------

' Procedure : CalcWorkDays

' DateTime : 5/8/2006 16:34

' Author : Dave Hargis

' Purpose : Counts the number of days between two dates excluding Saturdays,

' : Sundays, and any days in the Holidays tabl

'---------------------------------------------------------------------------------------

'

Function CalcWorkDays(dtmStart As Date, dtmEnd As Date) As Integer

On Error GoTo CalcWorkDays_Error

'Calculates the number of days between the dates

'Add one so all days are included

CalcWorkDays = DateDiff("d", dtmStart, dtmEnd) - _

(DateDiff("ww", dtmStart, dtmEnd, 7) + _

DateDiff("ww", dtmStart, dtmEnd, 1)) + 1

CalcWorkDays_Exit:

On Error Resume Next

Exit Function

CalcWorkDays_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & _

") in procedure CalcWorkDays of Module modDateFunctions"

GoTo CalcWorkDays_Exit

End Functio

------------------------------------------------------------------------------------------------