LibreOffice 7.5 Help
рд╕рдордпрдХреЛ рдорд╛рддреНрд░рд╛рдХрд╛ рд▓рд╛рдЧрд┐ рдХрд╛рд░реНрдпрд╛рдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рди рд░реЛрдХрд╛рд╡рдЯ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдбрдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реБрдиреНрдЫ ред
millisec рдкрд░реНрдЦрдиреБрд╣реЛрд╕реН
рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдб:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдХрд╛рд░реНрдпрд╛рдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рд╣реБрдиреБ рднрдиреНрджрд╛ рдЕрдЧрд╛рдбрд┐рд╕рдореНрдо рдкрд░реНрдЦрд╛рдЙрдирд▓рд╛рдИ рд╕рдордп(рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдбрд╣рд░реВрдорд╛)рдХреЛ рдорд╛рддреНрд░рд╛ рд╕рдореНрдорд┐рд▓рд┐рдд рдЧрд░рд╛рдЙрдЫ ред
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub