VBA/Excel/Access/Word/Date Functions/TimeSerial

Материал из VB Эксперт
Перейти к: навигация, поиск

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>