recomiendo mejor el select por que asi evitas procedimientos por lineas, debo imaginar que deseas calcular inervalos de minutos con horas, el de hora ya lo as de tener solo te falta acomodar los redondeos de minutos a los itervalos 01 a 15, 16 a 30, 31 a
45, 46 a una hora. tipo contador de tiempo de uso.
suponiendo que ya tienes el de horas, lo guardas a una variable en este ejemplo lo llamaremos: horas_transcurridas.
Dim minutos_sobrantes as Integer ' si tu resultado te da solo lo minutos lo pasamos a una variable a verficar
Dim hora_completa as Integer ' nos servira para en caso de ser arriba de 45 este se ejecute y se sume a tus horas transcurridas, por defecto valdra CERO siempre q lo pondremos al inicio del procedimiento
Private Sub Calculo_de_Tiempo ()
minutos_sobrantes= resultado
hora_completa=0
Select Case minutos_sobrantes
Case Is < 16
resultado= 16 'asignamos el nuevo valor a resultado
Case Is < 31
resultado =30
Case Is < 46
resultado= 45
Case Is <=60
hora_completa=1
End Select
horas_transcurridas = horas_transcurridas + hora_completa 'tener en cuenta q horas:_transcurridas tomara siempre un nuevo valor en tu calculo donde obtienes horas y minutos.
msgbox ("tiempo transcurrido: " & horas_transcurridas & " horas con " & resultado & " minutos") ' esto es para verificar q todo a salido bien.
End Sub
Saludos,
Recuerda que si las respuestas te ayudan a resolver tus problemas no olvides marcarla como respuesta, ya que otros usuarios pueden tener el mismo problema.
J. Miguel
