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.
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


0