GetSystemTicks Function
рд╕рдЮреНрдЪрд╛рд▓рди рдкреНрд░рдгрд╛рд▓реАрджреНрд╡рд╛рд░рд╛ рдкреНрд░рджрд╛рди рдЧрд░рд┐рдПрдХреЛ рдкреНрд░рдгрд╛рд▓реА рдЯрд┐рдХреНрд╕рдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рддрдкрд╛рдИрдБ рдирд┐рд╢реНрдЪрд┐рдд рдкреНрд░рдХрд┐рд░реНрдпрд╛рд╣рд░реВ рдЕрдиреБрдХреВрд▓ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдирд╕рдХреНрдирд╣реБрдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
GetSystemTicks()
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд▓рд╛рдореЛ
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub