Visual Basic - Obtener cantidad de minutos entre 2 horas

Life is soft - evento anual de software empresarial
 
Vista:

Obtener cantidad de minutos entre 2 horas

Publicado por Luis (19 intervenciones) el 28/01/2010 16:07:39
Mis Saludos ante todo gracias por su apoyo

Mi consulta es como puedo obtener la cantidad de minutos que hay entre 2 horas
yo uso una sentencia con datediff y funciona bien pero cuando hace la resta de las 8:00 pm hasta las 6:00 am (horario de amanecida) me bota 14 horas cuando en verdad son 10 horas

por favor quisiera su apoyo, gracias

DateDiff("n", HoraInicio, HoraFinal)
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:Obtener cantidad de minutos entre 2 horas

Publicado por ChidUng (44 intervenciones) el 04/02/2010 05:54:54
Hola

Puedes hacer la suma en dos partes:

H1=DateDiff("n", HoraInicio, "23:59:59")
H2=DateDiff("n", "00:00:01",Horafinal")

Hfinal=h1 + h2

Y como bien dices, esto solo ocurre para los Terceros Turnos.... jejejejeje

Avisame si te funciona, si no para buscarle una mejor opción
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:Obtener cantidad de minutos entre 2 horas

Publicado por Josman Pérez (40 intervenciones) el 13/02/2010 22:17:48
esa opcion solo es valida si la hora 2 es mayor a las 23:59:59
faltaria colocar esa condición para que a la larga no te de problemas
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:Obtener cantidad de minutos entre 2 horas

Publicado por Josman Pérez (40 intervenciones) el 13/02/2010 23:01:41
hola aqui esta rsulto tu problema usa 2 valore de hora con formato a.m. p.m. y listo
y aqui esta el codigo que usarias

Private Sub Command1_Click()
If CDate(txtHora2) > CDate(txtHora1) Then
Text1 = DateDiff("h", Format$(txtHora1, "hh:mm AMPM"), Format$(txtHora2, "hh:mm AMPM"))
ElseIf CDate(txtHora2) < CDate(txtHora1) Then
Horas1 = DateDiff("h", Format$(txtHora1, "hh:mm AMPM"), Format$("23:59 p.m.", "hh:mm AMPM"))
Horas2 = DateDiff("h", Format$("00:00 a.m.", "hh:mm AMPM"), Format$(txtHora2, "hh:mm AMPM"))
Text1 = CDbl(Horas1) + CDbl(Horas2) + 1
Else
Text1 = 0
End If
End Sub

ya lo probe y funciona bien
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