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.

Original Author: SeonJong,CHOI

API Declarations

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

Code

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


About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 96 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.