Find Completion Date

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'd like to show in a text box [CD] what the completion date will be if a
user enters in the start date [SD] and the estimated work hours [EH]. I hope
to do this excluding weekends and with the 8 hour workday as a standard.
Thank you for your help.
 
Qaspec said:
I'd like to show in a text box [CD] what the completion date will be if a
user enters in the start date [SD] and the estimated work hours [EH]. I hope
to do this excluding weekends and with the 8 hour workday as a standard.
Thank you for your help.
Click to expand...

The following code will add or subratct Business Days:

http://www.datastrat.com/Code/GetBusinessDay.txt

If a day is limited to 8 hours, you'll need to didvide the [EH] field by 8
to enter. Something like:

GetBusinessDay(Me.[SD], CInt([EH]/8) As Integer)
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
What is the correct way to impement this code so it functions on my form?
Do I create a module or paste it as a function in the form? Then how do I
call this function to perform the calculation and provide a result in my text
box[CD]?

Arvin Meyer said:
Qaspec said:
I'd like to show in a text box [CD] what the completion date will be if a
user enters in the start date [SD] and the estimated work hours [EH]. I hope
to do this excluding weekends and with the 8 hour workday as a standard.
Thank you for your help.
Click to expand...

The following code will add or subratct Business Days:

http://www.datastrat.com/Code/GetBusinessDay.txt

If a day is limited to 8 hours, you'll need to didvide the [EH] field by 8
to enter. Something like:

GetBusinessDay(Me.[SD], CInt([EH]/8) As Integer)
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
Click to expand...
 
Back
Top