GetSystemTicks Function

აბრუნებს ოპერაციული სისტემის მიერ მოწოდებულ სისტემური პულსების რიცხვს. ამ ფუნქციის გამოყენება შეგიძლიათ კონკრეტული პროცესების ოპტიმიზირებისთვის.

სინტაქსი

GetSystemTicks()

დაბრუნებული მნიშვნელობა:

Long

მაგალითი:

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