SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Titan en Martes 11 de Julio de 2006, 15:31

Título: ** Ayuda ** Capturar Tiempo Hh:mm:ss.cc
Publicado por: 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...

Título: Re: ** Ayuda ** Capturar Tiempo Hh:mm:ss.cc
Publicado por: leostu en Viernes 13 de Octubre de 2006, 14:37

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