Hour addition

  • Thread starter Thread starter Al
  • Start date Start date
A

Al

We have a program that trends our current plant steam usage and uses VBA
for applications. I'd like to use the do...loop and loop it until I reach
a time 8 hours away.

How do I add 8 hours to the currect time?

Thanks
 
Al said:
We have a program that trends our current plant steam usage and uses VBA
for applications. I'd like to use the do...loop and loop it until I reach
a time 8 hours away.

How do I add 8 hours to the currect time?

Thanks
Click to expand...

I have no idea what you mean by using a do..loop for this purpose,
but to add 8 hours to the current time, use:
=DateAdd("h",8,Now())

Fred
 
Al said:
We have a program that trends our current plant steam usage and uses VBA
for applications. I'd like to use the do...loop and loop it until I reach
a time 8 hours away.

How do I add 8 hours to the currect time?

Thanks
Click to expand...


You don't need to loop to add eight hours to the current time, but you may
need it if you want to do something for each of the eight hours, so here are
examples with and without looping. See 'DateAdd Function' in the help files
for more information.

Public Sub EightHoursFromNow()

Dim dtmNow As Date

dtmNow = Now()
Dim intLoop As Integer

Debug.Print "No looping required: " & DateAdd("h", 8, dtmNow)
Debug.Print "------------------------------------------------"
Debug.Print "Starting loop"
For intLoop = 0 To 8
Debug.Print intLoop, DateAdd("h", intLoop, dtmNow)
Next intLoop

End Sub
 
Al,

No need for a loop:
dteMyTime = DateAdd("h", 8, dteMyTime)

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
 
We have a program that trends our current plant steam usage and uses
VBA for applications. I'd like to use the do...loop and loop it until
I reach a time 8 hours away.

How do I add 8 hours to the currect time?

Thanks
Click to expand...

Thanks to all who responded, You all were correct in that I had no need
for the loop, It is work well, I just have to fine tune it now.
 
Back
Top