Timer Function
Returnerar ett vÀrde som anger antalet sekunder sedan midnatt.
Du mÄste först deklarera en variabel med datatypen Long och tilldela den returvÀrdet frÄn Timer. Annars returneras ett vÀrde av typen Date.
Syntax:
Timer
ReturvÀrde:
Datum
Exempel:
Sub ExampleTimer
Dim lSec As Long,lMin As Long,lHour As Long
lSec = Timer
MsgBox lSec,0,"Antal sekunder sedan midnatt"
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,"Klockan Àr"
End Sub