Question

Tengo en Access una función con la que convierto en horas una serie de minutos registrados en las tablas:

'Convierto minutos en horas
Function CalculoHHMM(intMinutos As Integer) As Date
CalculoHHMM = intMinutos \ 60 & ":" & Format((Abs(intMinutos Mod 60)), "00")
End Function    

El problema es que cuando la suma de minutos es superior a 24 horas (1440 minutos) me devuelve un error. Necesito una función que me permita trabajar con un sumatorio de horas, sean las que sean.

¿Alguna ayuda?

Gracias.

Answer 1

Pues si Yuki, esta mañana me he dado cuenta de que variando muy poco la primera función podría haberlo sacado. No obstante dejo la función definitiva:

Function ConvertirMinutos(Minutos As Integer) As String
m = Minutos Mod 60
h = (Minutos - m) / 60
ConvertirMinutos = h & ":" & Format(m, "00")
End Function

Gracias por la ayuda y comentarios.

Answer 2

No se programar en Access, pero me parece que deberia quedar asi:

'Convierto minutos en horas
Function CalculoHHMM(intMinutos As Integer) As Date
intMinutos = Abs(intMinutos Mod 1440)
CalculoHHMM = intMinutos \ 60 & ":" & Format((Abs(intMinutos Mod 60)), "00")
End Function

Haciendo que intMinutos nunca sobrepase el valor de 1440 (24 horas).

Espero haberte ayudado, Saludos!