Calculate work days and not weekends

[Rose]

Is it possible to only calculate weeks days with a DateAdd calculation?

 

[raskew via AccessMonster.com]

Rose -

Do a search on 'workdays'.

Bob

Is it possible to only calculate weeks days with a DateAdd calculation?

 

[Steve Sanford]

There are two functions that demonstrates how to calculate only workdays on
this site:

Calculate Number of Working Days

http://www.mvps.org/access/datetime/date0006.htm


HTH

 

[Ron2006]

Here is a simpler one.(watch out for wrapping of text)


'--------------------------------------------------------------------------­-------------
' 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 table
'--------------------------------------------------------------------------­-------------
'
Function CalcWorkDays(dtmStart As Date, dtmEnd As Date) As Integer


On Error GoTo CalcWorkDays_Error


CalcWorkDays = DateDiff("d", dtmStart, dtmEnd) - _
(DateDiff("ww", dtmStart, dtmEnd, 7) + _
DateDiff("ww", dtmStart, dtmEnd, 1)) + 1

CalcWorkDays = CalcWorkDays - DCount("*", "holidays", "[holdate]
between
#" _
& dtmStart & "# And #" & dtmEnd & "#")


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 Function