LibreOffice 7.2 Help
Geeft een waarde terug die het aantal seconden die zijn verlopen sinds middernacht specificeert.
U moet eerst een variabele met gegevenstype Long benoemen die wordt gebruikt om de functie Timer aan te roepen, anders wordt een datumwaarde teruggegeven.
Timer
Datum
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Aantal seconden sinds middernacht :"
lMin = lSec / 60
lSec = lSec Mod 60
lHour = lMin / 60
lMin = lMin Mod 60
MsgBox Right("00" & lUur , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"De tijd is :"
End Sub
The Timer function measures time in seconds. To measure time in milliseconds use the Timer service.