Laikmačio funkcija

Pateikia reikšmę, nurodančią sekundžių, praėjusių nuo vidurnakčio, skaičių.

Note Icon

Pirmiausia turite aprašyti kintamąjį, kad iškviestumėte funkciją „Laikmatis“ ir priskirtumėte „Ilgąjį“ duomenų tipą, kitaip bus grąžinta datos reikšmė.


Sintaksė:


Timer

Grąžinama reikšmė:

Data

Pavyzdys:


Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
    lSec = Timer
    MsgBox lSec,0,"Sekundės iki vidurnakčio"
    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,"Šis laikas yra"
End Sub