Tiempo desde que se puso en marcha Windows

Hay una función del api: GetTickCount que te devuelve el tiempo en milésimas de segundo desde que se puso en marcha Windows. La precisión es de pocos milisegundos en Windows 95. Esta función se puede usar igual en VB que en C, la precisión es la misma.

Prueba esto en un formulario….

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

Private Sub Command1_Click()
     Dim n As Long
     Dim t As Long
     n = GetTickCount
     Do
         t = GetTickCount
     Loop While n = t
     MsgBox "Precisión = " & t - n & " milisegundos"
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s