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!