Enable JavaScript in the browser to display LibreOfficeDev Help pages.

GetSystemTicks Function

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

სინტაქსი


GetSystemTicks()

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

Long

Error codes:

D'oh! You found a bug (text/sbasic/shared/00000003.xhp#err5 not found).

მაგალითი:


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