LibreOffice 7.1 abi
Tagastab väärtuse, mis näitab alates keskööst möödunud sekundite arvu.
Funktsiooni Timer kutsumiseks tuleb esmalt kirjeldada muutuja ja määrata sellele andmetüüp Long, sest muidu tagastatakse väärtus Date.
Timer
Kuupäev
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Sekundit pärast südaööd"
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,"Aeg on"
End Sub