GetSystemTicks Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αž…αŸ†αž“αž½αž“β€‹β€‹αž‘αžΌαžšαž›αž·αžβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹ αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž•αŸ’αžαž›αŸ‹β€‹αžŠαŸ„αž™β€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·αž€αžΆαžšβ€‹Β αŸ” αž’αŸ’αž“αž€β€‹αž’αžΆαž…β€‹αž”αŸ’αžšαžΎβ€‹αž’αž“αž»αž‚αž˜αž“αŸβ€‹β€‹β€‹αž“αŸαŸ‡β€‹ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αž„αŸ’αž€αžΎαž“β€‹αž”αŸ’αžšαžŸαž·αž‘αŸ’αž’αž·αž—αžΆαž–β€‹β€‹β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž–αž·αžαž”αŸ’αžšαžΆαž€αžŠβ€‹Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


GetSystemTicks()

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

Long

Error codes:

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!