Visual Basic - Diferencia entre dos horarios

Life is soft - evento anual de software empresarial
 
Vista:

Diferencia entre dos horarios

Publicado por Jefferson Junqueira de Souza (4 intervenciones) el 18/11/2004 15:24:19
Estimados amigos!!!
Me gustaria saber como puedo hacer para calcular la diferencia entre dos horarios diferentes, ej. un vehìculo sale a las 23:30 horas y regresa a las 07:00 horas, he intentado don DateDiff y no he logrado resultados satisfactòrios cuando el horario sobrepasa de las 00:00 horas.
Si Alguien puede socorrerme con eso, me quedare eternamente agradecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Diferencia entre dos horarios

Publicado por perdy (3 intervenciones) el 18/11/2004 15:36:55
Sí, se puede, utilizando la función TimeValue.
Supongamos que llamas t1 y t2 a las variables de tiempo que quieres restar
y que éstas se encuentran en 2 cajas de texto, Caja1 y Caja2, estamos? Luego,
el resultado de esta resta lo colocas en una caja de texto que se llamará Tiempo, ok?

Aqui tienes el codigo:

Dim t1 As Variant
Dim t2 As Variant

t1 = Format(Caja1.Text.Text, "hh:mm:ss")
t2 = Format(Caja2.Text, "hh:mm:ss")

Tiempo.Text = Format(TimeValue(t2) - TimeValue(t1), "hh:mm:ss")

Y ahí estaría el resultado.



Cuando tengo un rango de hora entre 17:00 y las 01:30:
ese problema se soluciona de la siguiente forma:

Dim t1 As Variant
Dim t2 As Variant
Dim t3 As Date
t1 = Date & " " & Text3
t2 = Date & " " & Text4
If Hour(Text4) < Hour(Text3) Then
t3 = Date + 1
t1 = Date & " " & Text3
t2 = t3 & " " & Text4
txthoras = DateDiff("n", t1, t2)
txthoras = Format(txthoras, "#0.00#") / 60
Else
txthoras = DateDiff("n", t1, t2)
txthoras = Format(txthoras, "#0.00#") / 60

End If

Espero que te sirvan, haber si les mis mensajes y me puedes ayudar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar