LibreOffice 7.1 žinynas
Pateikia reikšmę, nurodančią sekundžių, praėjusių nuo vidurnakčio, skaičių.
Pirmiausia turite aprašyti kintamąjį, kad iškviestumėte funkciją „Laikmatis“ ir priskirtumėte „Ilgąjį“ duomenų tipą, kitaip bus grąžinta datos reikšmė.
Timer
Data
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Sekundės iki vidurnakčio"
lMin = lSec / 60
lSec = lSec Mod 60
lHour = lMin / 60
lMin = lMin Mod 60
MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"Šis laikas yra"
End Sub