IBM Lotus Symphony


Funktionen Timer [Runtime]

Returnerer en værdi, som angiver det antal sekunder, der er gået siden midnat.

Ikonen Note Inden du kalder funktionen Timer, skal du erklære en variabel med datatypen Long, ellers returneres en datoværdi.

Syntaks:

Timer

Returværdi:

Dato

Eksempel:

Sub EksempelTimer

Dim lSek as long,lMin as long,lTime as long

lSek = Timer

MsgBox lSek,0,"Sekunder siden midnat"

lMin = lSek / 60

lSek = lSek Mod 60

lTime = lMin / 60

lMin = lMin Mod 60

MsgBox Right("00" & lTime , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSek , 2) ,0,"Klokken er"

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker