IBM Lotus Symphony
|
Devuelve un valor que especifica el número de segundos que han transcurrido desde medianoche.
![]() |
Debe declarar una variable primero para llamar a la función Timer y asignarle el tipo de datos "Long". De lo contrario, se devuelve un valor de fecha. |
Timer
Fecha
Sub EjemploTimer
Dim lSeg as long,lMin as long,lHora as long
lSeg = Timer
MsgBox lSeg,0,"Segundos desde medianoche"
lMin = lSec / 60
lSeg = lSeg Mod 60
lHora = lMin / 60
lMin = lMin Mod 60
MsgBox Right("00" & lHora , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSeg , 2) ,0,"La hora es"
end sub