VBA/Excel/Access/Word/Date Functions/TimeSerial
Scheduling a Macro to Run x Minutes in the Future
<source lang="vb">
Sub ScheduleAnything()
WaitHours = 0 WaitMin = 2 WaitSec = 30 NameOfScheduledProc = "CaptureData" NextTime = time + TimeSerial(WaitHours, WaitMin, WaitSec) Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfScheduledProc
End Sub
</source>
TimeSerial( returns AM
<source lang="vb">
Sub timeDemo()
Debug.Print TimeSerial(9, 0, 0)
End Sub
</source>
TimeSerial(hour, minute, second) returns a Variant/Date containing the time for the specified hour, minute, and second
<source lang="vb">
Sub dateDemo14()
Debug.Print TimeSerial(11, 12, 13)
End Sub
</source>