| Pregunta: | 21962 - COMO TOMAR LA HORA DEL SISTEMA INCLUYENDO LOS MILISEGUNDOS |
| Autor: | Raul Lozada |
| Hola:
Me gustaria que me pudieran ayudar, necesito tomar la hora del sistema, para poder calcular el tiempo transcurrido entre la hora inical y la hora final (estoy haciendo un programa que analiza una gramatica y necesito saber como le hago para calcular el tiempo transcurrido o el tiempo que dura en analizar la sintaxis del codigo). A lo mejor sea algo facil, pero no le encuentro. Estoy utilizando Visual Basic. Gracias. | |
| Respuesta: | Luis Miguel Vázquez |
| Ahi te envio el programa que lo realiza.
' Esto en el formulario Private Sub Command1_Click() Dim lngTickCount As Long lngTickCount = GetTickCount Call MsgBox("Has usado tu ordenador durante:" & vbCrLf & _ " * " & CStr(lngTickCount) & " milisengundos, o " & vbCrLf & _ " * " & CStr(lngTickCount / 1000) & " segundos, o " & vbCrLf & _ " * " & CStr(lngTickCount / 60000) & " minutos", vbInformation) End Sub ' Esto otro en un modulo Public Declare Function GetTickCount Lib "kernel32" () As Long | |