Thread: Hour addition
View Single Post
  #2  
Old July 27th 07, 04:30 PM posted to autodesk.autocad.customization.vba,microsoft.public.access.modulesdaovba,microsoft.public.outlook.program_vba
Brendan Reynolds
external usenet poster
 
Posts: 1
Default Hour addition

"Al" wrote in message
9.11...
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



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

--
Brendan Reynolds

Ads