Timer Function

Tagastab väärtuse, mis näitab alates keskööst möödunud sekundite arvu.

Märkuse ikoon

Funktsiooni Timer kutsumiseks tuleb esmalt kirjeldada muutuja ja määrata sellele andmetüüp Long, sest muidu tagastatakse väärtus Date.


Süntaks:


Timer

Tagastusväärtus:

Kuupäev

Näide:


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