GetSystemTicks Function

рд╕рдЮреНрдЪрд╛рд▓рди рдкреНрд░рдгрд╛рд▓реАрджреНрд╡рд╛рд░рд╛ рдкреНрд░рджрд╛рди рдЧрд░рд┐рдПрдХреЛ рдкреНрд░рдгрд╛рд▓реА рдЯрд┐рдХреНрд╕рдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рддрдкрд╛рдИрдБ рдирд┐рд╢реНрдЪрд┐рдд рдкреНрд░рдХрд┐рд░реНрдпрд╛рд╣рд░реВ рдЕрдиреБрдХреВрд▓ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдирд╕рдХреНрдирд╣реБрдиреНрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


GetSystemTicks()

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

Long

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub

Please support us!