Autor Tema: Ayuda Capturar Tiempo Hh:mm:ss.cc (Leído 2167 veces)

Titan · « **en:** Martes 11 de Julio de 2006, 15:31 »

Hola, necesito su ayuda porfavor, si me puede ayudar con este problema que tengo:

Necesito capturar la Hora con decimales en los segundos ideal desde 1 a 5 decimales y luego de alguna forma de operarlos, es decir poder sumar dos horas capturadas y/o restarlas.

Hace un tiempo me pasaron este proceso, que me funciona, pero lo compara con otro sistema y tenemos la diferencia en las centecimas y lo otro no se como sumar las horas con las centesimas rápido...

Funcion:

Public Function HORA_DECIMALES() As String
'
Tiempo = Timer
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, Formato)
'
End Function

Si me pueden ayudar, se los agradeceré muchísimo !!!

Saludos...

leostu

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

SoloCodigo