Ejemplos usando el Api de windows para Visual basic

238 - Obtener el tiempo desde que se inició la PC

Ejemplo enviado por IVO Scavuzzo

Este simple código usa la función del Api GetTickCount, para obtener el tiempo desde que la pc está prendida, es decir el tiempo desde que se ha iniciado windows. Dicha función Api devuelve los milisegundos que han transcurrido desde que se inició el sistema, y luego de 49 días se resetea.

El ejemplo visualiza los datos en: días, horas, minutos y segundos :

tiempo desde que inició el sistema

Código fuente en el formulario con un control Commandbutton

Option Explicit ' Api GetTickCount ''''''''''''''''''''''''' Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Command1_Click() cGetTickCount End Sub Private Sub cGetTickCount() Dim MilloSec#, Days#, Hours#, Min#, Sec#, Msg$ 'calcula las horas, minutos y segundos MilloSec = GetTickCount() Sec = MilloSec \ 1000 Days = Sec \ (24& * 3600&) If Days > 0 Then Sec = Sec - (24 * 3600 * Days) Hours = Sec \ 3600 If Hours > 0 Then Sec = Sec - (3600 * Hours) Min = Sec \ 60 Sec = Sec Mod 60 Msg = "windows está iniciado desde " & vbCrLf & vbCrLf Msg = Msg & Days & " Día(s), " & Hours & " Hora(s), " & Min & _ " Minuto(s), " & Sec & " Segundo(s)" ' muestra el tiempo MsgBox Msg, vbOKOnly + vbInformation, "Tiempo iniciado" End Sub

Buscar en Recursos vb