• Home
 · 
• Miscellaneous
 · 
• Time Delay Function

Time Delay Function

It is method that delay time as much as time that designate.
There is no problem even if use over midnight.
With Sleep function, use and lowered CPU's use rate.

API Declarations
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Rate Time Delay Function

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Public Sub Delay(ByVal delayTime As Single)
  Dim startTime  As Single
  Dim LoopTime  As Single
  
  startTime = Timer
  Do
    Call Sleep(50)
    
    If Timer < startTime Then startTime = startTime - 86400
    
    LoopTime = Timer - startTime
    DoEvents
  Loop Until delayTime < LoopTime
End Sub