Access - Hora de encendido de la PC

Option Compare Database

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Function ObtenerHoraEncendido() As Date

    ' Obtener el número de milisegundos transcurridos desde el encendido

    Dim tiempoTranscurrido As Long

    tiempoTranscurrido = GetTickCount()

    ' Calcular la hora actual restando el tiempo transcurrido

    Dim horaActual As Date

    horaActual = Now() - tiempoTranscurrido / (1000 * 60 * 60 * 24) ' Convertir a días

    ObtenerHoraEncendido = horaActual

End Function

Public Function ObtenerTiempoTranscurrido() As String

    ' Obtener el número de milisegundos transcurridos desde el encendido

    Dim tiempoTranscurrido As Long

    tiempoTranscurrido = GetTickCount()

    ' Calcular el tiempo transcurrido en formato HH:MM:SS

    Dim horas As Long, minutos As Long, segundos As Long

    horas = tiempoTranscurrido \ (1000 * 60 * 60)

    minutos = (tiempoTranscurrido Mod (1000 * 60 * 60)) \ (1000 * 60)

    segundos = ((tiempoTranscurrido Mod (1000 * 60 * 60)) Mod (1000 * 60)) \ 1000

    ObtenerTiempoTranscurrido = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")

End Function