Timer Function
Liveras valoron kiu specifas la nombron da sekundoj pasintaj de post noktomezo.
Necesas unue deklari variablon por voli la funkcion Timer kaj atribui ĝin al la datumtipo "Long ", alie liveriĝas data valoro.
Sintakso:
Timer
Liverota valoro:
Dato
Ekzemplo:
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Sekundoj de post noktomezo"
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,"La horo estas"
End Sub