GetSystemTicks Function

āļ¸āˇ™āˇ„⎙āļē⎔āļ¸āˇŠ āļ´āļ¯āˇŠāļ°āļ­āˇ’āļē⎙āļąāˇŠ ⎃āļ´āļēāļąāˇ” āļŊāļļāļą āļ´āļ¯āˇŠāļ°āˇ’āļ­āˇ’ āļ§āˇ’āļšāˇ’ āļœāļĢāļą āļ†āļ´āˇƒāˇ” āļŊāļļāˇ āļ¯āˇ™āļē⎒. ⎃āļ¸āˇ„āļģ āļšāˇŠâ€āļģ⎒āļēāˇāˇ€āļŊ⎒ ⎀āļŠāˇ āļē⎄āļ´āļ­āˇŠ āļšāˇ’āļģ⎓āļ¸āļ§ āļ”āļļāļ§ āļ¸āˇ™āļ¸ āļšāˇŠâ€āļģ⎒āļēāˇāˇ€ āļˇāˇāˇ€āˇ’āļ­āˇ āļšāļŊ ⎄⎐āļš.

āļšāˇāļģāļš āļģ⎓āļ­āˇ’āļē:


GetSystemTicks()

āļ†āļ´āˇƒāˇ” āļŊāļļāˇāļ¯āˇ™āļą āļ…āļœāļē:

Long

Error codes:

5 Invalid procedure call

āļ‹āļ¯āˇāˇ„āļģāļĢāļē:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " āļ§āˇ’āļšāˇ’" ,0,"āļœāļ­āˇ€āˇ– ⎀⎒āļģāˇāļ¸āļē"
End Sub

Please support us!