Tengo una aplicación que indica cuanto tiempo lleva windows ejecutado, y en aquel entonces hice así para llevar la cuenta exacta, será cosa que la adecúes a tu aplicación:
Puse un timer con el intervalo = 1000
Private Sub Timer1_Timer()
Dim Tiempo as long
Tiempo = GetTickCount ' Aqui me daba el tiempo la Api pero en
'comencé las conversiones:
AMins = Tiempo / 1000 / 60
If AMins > 60 Then
Hors = Fix(AMins / 60) 'Sacamos las horas pero solo el numero entero
Mins = Fix(((AMins / 60) - Hors) * 60) 'Sacamos los minutos pero solo el numero entero
Secs = Abs(Fix((Fix(((AMins / 60) - Hors) * 60) - (((AMins / 60) - Hors) * 60)) * 60)) 'Sacamos los segundos pero solo el numero entero
'Desplegamos el resultado en el Label2
Label2.Caption = Str(Hors) & " Horas" & Str(Mins) & " Minutos" & Str(Secs) & " Segundos"
Else
Mins = Fix(AMins) 'Sacamos los minutos pero solo el numero entero
Secs = Fix((AMins - Mins) * 60) 'Sacamos los segundos pero solo el numero entero
'Desplegamos el resultado en el Label2
Label2.Caption = Str(Mins) & " Minutos" & Str(Secs) & " Segundos"
End If
End Sub
Espero que te sirva, si tienes duda en algo del codigo mandas un mail.
Saludos.
Cs
