IBM Lotus Symphony


Función Timer [Ejecución]

Devuelve un valor que especifica el número de segundos que han transcurrido desde medianoche.

Icono de nota 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.

Sintaxis:

Timer

Valor de retorno:

Fecha

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas