Timer Function

Liveras valoron kiu specifas la nombron da sekundoj pasintaj de post noktomezo.

Nota bildsimbolo

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

Bonvolu subteni nin!