Adding work days to start date to get an end date

mcdhappy80 · Jul 16, 2009

I need to create a function that will calculate which is the End Date and the arguments that will be provided are Start Date and Working Days. Now, I know that end date should be easily calculated when You add Days to Start Date but the problem here is that the user will provide Work Days which are 5 in week (excluding holidays) instead of 7 days of the week. Does anyone have idea how to do this? I was thinking of something like this to solve it:
The user provides WorkDays. I divide that value with 5, then for each value that lefts I add two days. Something like this:
WorkDays = 35; 35/5 = 7; DaysToAdd = 7 * 2 = 14; TotalDays = WorkDays+DaysToAdd (49), and the add that value to StartDate to get an EndDate.
What do You think?

Mr. B · Jul 17, 2009

mcdhappy80,

Here is a link that should help:

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

mcdhappy80 · Jul 17, 2009

Mr. B said:
mcdhappy80,

Here is a link that should help:

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

Whoa, thanks Mr. B

, there are lot of examples here and I'm sure some of them would be useful.

Mr. B · Jul 17, 2009

Your welcome. Good luck with your project.

mcdhappy80 · Jul 22, 2009

Mr. B said:
mcdhappy80,

Here is a link that should help:

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

The function works perfectly for one of my two problems. The other problem is:
I need to display the date without adding that +1 day that is the next day.
I tried modifying the function dhNextWorkdayA in the part:

Code:

dhNextWorkdayA = SkipHolidaysA(adtmDates, dtmDate + 1, 1) - Ln 86, Col 47

to this:

Code:

dhNextWorkdayA = SkipHolidaysA(adtmDates, dtmDate, 1) - Ln 86, Col 47

In order to eliminate that +1 days to add, but that didn't solve my problem.
Can someone help me with this?
Thank You.

arnelgp · Aug 21, 2017

It will take time to review the code.

Minty · Aug 21, 2017

Wow arenlgp, that's dedication to the cause - it's a 8 year old thread!

jco23 · Aug 22, 2017

arnelgp said:
It will take time to review the code.

sorry, I thought I deleted my post in time. i was able to figure it out shortly after posting.

all I had to do was duplicate the dhAddWorkDaysA function, rename it to dhsubtractWorkDaysA, and change the line "dtmTemp = dhNextWorkdayA(dtmTemp, adtmDates)" to read "dtmTemp = dhpreviousWorkdayA(dtmTemp, adtmDates)"

hope this helps others.

arnelgp · Aug 22, 2017

You see Ms.Minty, I'm not crazy after all!

Adding work days to start date to get an end date

mcdhappy80

Registered User.

Mr. B

"Doctor Access"

mcdhappy80

Registered User.

Mr. B

"Doctor Access"

mcdhappy80

Registered User.

arnelgp

..forever waiting... waiting for jellybean!

Minty

AWF VIP

jco23

Registered User.

arnelgp

..forever waiting... waiting for jellybean!

Similar threads

Users who are viewing this thread