IBM Lotus Symphony
|
Returnerer en værdi, som angiver det antal sekunder, der er gået siden midnat.
![]() |
Inden du kalder funktionen Timer, skal du erklære en variabel med datatypen Long, ellers returneres en datoværdi. |
Timer
Dato
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