Visual Basic - Restar horas(mas de 24hrs)

Life is soft - evento anual de software empresarial
 
Vista:

Restar horas(mas de 24hrs)

Publicado por eguerrero (20 intervenciones) el 25/11/2010 00:58:51
Hola que tal saludos , saben tengo un problema espero me puedan ayudar necesito calcular horas y minutos pero hasta despues de las 24hrs o osea hasta las 6:AM que serian las 30hrs actualmente hago este calculo pero solo puedo calcular de 1 a 23hrs

Dim t0 As Variant, t1 As Variant
Dim t3 As String

t0 = Format(txtHorainicial, "hh:mm:ss")
t1 = Format(txtHorafinal, "hh:mm:ss")

txtHoratotal.Text = Format(TimeValue(t0) - TimeValue(t1), "hh:mm")
t3 = txtHoratotal.Text
txtMintotales.Text = CDate(t3) * 24 * 60

ejemplo : hora inicial 7:00 hora final 22:25 hora total 13:25 hrs 805 minutos

y necesito que calcule de las 24:00 a las 28:00 hrs de las 12AM a las 4 aM del siguiente dia.
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:Restar horas(mas de 24hrs)

Publicado por Miguel (17 intervenciones) el 25/11/2010 09:00:32
Lo único que tienes que hacer, es por ejemplo:
Hora1=18:00
Hora2=2:00

A la Hora1 le concatenamos delante una fecha la que sea:
Hora1="01/01/2000 " & Hora1

Si la Hora2 >= Hora1 le concatenamos la misma fecha a la Hora2.
Si la Hora2<Hora1 le concatenamos un día más a la Hora2, en nuestro ejemplo:
Hora2="02/01/2000 " & Hora2

Y ya sólo te queda hacer un DateDiff:

Minutos=DateDiff("n", Hora1, Hora2)

Espero haberme explicado bien, saludos.
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

RE:Restar horas(mas de 24hrs)

Publicado por eguerrero (20 intervenciones) el 08/12/2010 23:11:22
gracias por tu respuesta lo probare
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