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