LibreOffice 7.4 Help
рд╕рдЮреНрдЪрд╛рд▓рди рдкреНрд░рдгрд╛рд▓реАрджреНрд╡рд╛рд░рд╛ рдкреНрд░рджрд╛рди рдЧрд░рд┐рдПрдХреЛ рдкреНрд░рдгрд╛рд▓реА рдЯрд┐рдХреНрд╕рдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рддрдкрд╛рдИрдБ рдирд┐рд╢реНрдЪрд┐рдд рдкреНрд░рдХрд┐рд░реНрдпрд╛рд╣рд░реВ рдЕрдиреБрдХреВрд▓ рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдирд╕рдХреНрдирд╣реБрдиреНрдЫ ред
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub