Timer Function

Devuelve un valor qu'especifica'l númberu de segundos que trescurrieron dende medianueche.

Iconu de nota

Enantes d'utilizar la función Timer ye necesariu que declare una variable y que-y asigne'l tipu de datos "Long", en casu contrariu devuélvese un valor de fecha.


Syntax:


  Timer

Return value:

Data

Example:


  Sub ExampleTimer
      Dim lSec As Long,lMin As Long,lHour As Long
      lSec = Timer
      MsgBox lSec, 0, "Seconds since midnight"
      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, "The time is"
End Sub
note

La función Timer mide'l tiempu en segundos. Pa midir el tiempu en milisegundos, usa'l serviciu Timer que ta disponible na biblioteca ScriptForge.


Please support us!