SoloCodigo

Hola mira no se si esto te puede ayudar a resolver el problema, realmente no se esactamente que es lo que queres hacer, aca yo lo que hago es sacar la diferencia de tiempo entre un momento de inicio y el fin y el resultado queda en la variable Respuesta.


tiempo1 = timer
'Proceso
 while , for, etc…

Timepo2 = timer
Tiempo3 = Tiempo2 - Tiempo1
Respuesta = Hora_decimales(tiempo3)

'A la función que el hizo hay que hacerle un parametro tiempo  de tal manera de que se la enviemos en los distintos momentos del calculo

Public Function HORA_DECIMALES(tiempo) As String
'
th = Fix(Tiempo / 3600) ' obtengo las horas
Tiempo = Tiempo - th * 3600
tm = Fix(Tiempo / 60) ' obtengo los minutos
Tiempo = Tiempo - tm * 60
ts = Fix(Tiempo) ' obtengo los segundos
Tiempo = Tiempo - ts * 1
' Obtengo Decimales 2 decimales
tc = Tiempo * 100
'
HORA_DECIMALES = Format(th, "0#") & ":" & _
Format(tm, "0#") & ":" & _
Format(ts, "00") & "." & _
Format(tc, "00")
'
End Function