Add weekdays only 1

[primagic]

HI

I have a query which has a DateField with a number of days field

So DateAdded = 01/01/2009, Service Level days = 7. So I want to add only 7 weekdays to that DateAdded. To get 12/01/2009

At the moment I only can add 7 days in total. Which gives me 08/01/2009.

My code is:

InitialChaseDate: [ServiceLevel]+[DateAdded]

Help please

 

[Remou]

This function should suit:

http://www.tek-tips.com/faqs.cfm?fid=3213

http://lessthandot.com

 

[PHV]

Have a look here:

http://support.microsoft.com/?kbid=288194

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[primagic]

Thanks for your help

But these functions calculate between two dates. My Service Level field is not a date but a number i.e 1 = 1 day, 7 = days, 56 = 56 days

So when I use the functions doesn't give out a correct date

 

[Remou]

I think you will find that the function I posted by MichaelRed has two parameters:

[tt]Public Function basMtgDate(Optional NumDays As Integer = 1, Optional startdate As Variant) As Date[/tt]

So it should be possible to use ServiceLevel for NumDays and DateAdded for startdate, yesno?

http://lessthandot.com

 

[primagic]

Hi Remou

That function you posted requires me to create a holidays table which I would always need to keep updated. I don't need to worry about holidays, just want to exclude weekends

 

[Remou]

It should be simple enough to modify the function to stop it needing the holidays table, for example, just remove the whole of Case Else.

http://lessthandot.com

 

[primagic]

Ok I have modified the code, could you tell me please how would I implement that into a query or form. I dont understand the usage part of the code supplied

Thanks

 

[Remou]

I mislead you a little, case else should read:

Case Else
     MyDays = MyDays + 1

One way to use it in a form, would be to set the control source to:

=BasMtgDate([ServiceLevel], [DateAdded])

You could do something similar with a query.

http://lessthandot.com

 

[primagic]

Thank you Remou

It works perfectly now. Much appreciated

 

[dhookom]

Remou deserves a star for the great support.

Duane
Hook'D on Access
MS Access MVP

 

[primagic]

No problem, but how do you add a star?

 

[dhookom]

Click the link with the little purple star inside his post that states "Thank Remou for this valuable post!"

Duane
Hook'D on Access
MS Access MVP