Subtract Workdays

[Guest]

I am using the dhAddWorkDaysA function and it is working great. However for
the first time i have to subtract a number of workdays from a predefined date
and need some help.
Any thoughts would be appreciated.

 

[[MVP] S.Clark]

Leveraging the already written function of dhPreviousWorkdayA(), and that it
has to offer

Function scSubtractWorkDaysA(pintDays As Integer, pdtmDate As Date) As Date

'Written by Steve Clark
Dim dtmDate As Date
Dim i As Integer

dtmDate = pdtmDate

For i = 1 To pintDays
dtmDate = dhPreviousWorkdayA(dtmDate)
Next i

SubtractBizDaysA = dtmDate

End Function

 

[[MVP] S.Clark]

Correction:

Function scSubtractWorkDaysA(pintDays As Integer, pdtmDate As Date) As Date

'Written by Steve Clark
Dim dtmDate As Date
Dim i As Integer

dtmDate = pdtmDate

For i = 1 To pintDays
dtmDate = dhPreviousWorkdayA(dtmDate)
Next i

scSubtractWorkDaysA = dtmDate

End Function

Steve Clark, Access MVP
http://www.fmsinc.com/consulting
*FREE* Access Tips: http://www.fmsinc.com/free/tips.html

 

[Guest]

Thanks for your help that did it!!