• Home
 · 
• Miscellaneous
 · 
• TimeDelay

TimeDelay

TimeDelay fuction is good for when you want to time out a loop, in milliseconds.
Does'nt use a timer control, Uses simple api declare.

Inputs
Delay as Long, milliseconds

Assumes
Create a module with the following api declare and function Usage can be Do FuncThatRetunsTrue MoreCode EctEct Loop until ( FuncThatRetunsTrue=True) or (TimeDelay(60000)=True)

Returns
TimeDelay as boolean, turns turn if time reached,else false

API Declarations
Declare Function GetTickCount& Lib "kernel32" ()


Rate TimeDelay

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

Public Function TimeDelay(ByVal Delay As Long) As Boolean
Static Start As Long
Dim Elapsed As Long
If Start = 0 Then                            'if start is 0 then set a
  Start = GetTickCount                       'Static value to compare
End If
Elapsed = GetTickCount
If (Elapsed - Start) >= Delay Then
  TimeDelay = True
  Start = 0                            'Remember to reset start
Else: TimeDelay = False                 'once true so subsquent
End If                                'calls wont "spoof" on you!
End Function