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.
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
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
原始评论 (3)
从 Wayback Machine 恢复