IBM Lotus Symphony


Timer-funksjonen [kjøretid]

Returnerer en verdi som angir antall sekunder som er gått siden midnatt.

Merknadsikon Du må først deklarere en variabel for å kalle opp Timer-funksjonen og tildele den datatypen "Long". Ellers blir en datoverdi returnert.

Syntaks:

Timer

Returverdi:

Dato

Eksempel:

Sub ExampleTimer

Dim lSec as long,lMin as long,lHour as long

lSec = Timer

MsgBox lSec,0,"Sekunder siden 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,"Tiden er"

end sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker