Access - Sumar las horas mensuales del año

Private Function funTest()

      MsgBox funTiempo(#4/28/1950 10:05:20 AM#, now)

End Function

Public Function funTiempo(ByVal Fecha_Inicio As Date, ByVal Fecha_Fin As Date) As String

'---------------------------------------------------------------------------------------

' Procedure : funTiempo

' DateTime  : 08/02/2009  23:32

' Autor:          Navigator

' Modifications    :  Javier Gomez ("Javier.Mil")

' WEB       :  http://www.accessdemo.info

' Purpose   : Calculo de tiempo en Años , Meses , Dias, Horas , Segundos

'---------------------------------------------------------------------------------------

Dim datFechaCalculo As Date

Dim lngAnios As Long

Dim bytMeses As Byte

Dim bytDias As Byte

Dim bytHoras As Byte

Dim bytMinutos As Byte

Dim bytSegundos As Byte

      Rem  si la Fecha Fin es menor que la de inicio salimos sin hacer los calculos

      Rem  En determinadas condiciones es posible que no nos importe recibir valores negativos

      Rem  en tal caso habrá que anular estas tres líneas

      If Fecha_Fin < Fecha_Inicio Then

            MsgBox "La fecha de Inico No puede ser mayor que la fecha final", vbExclamation, "Error Fecha"

            Exit Function

      End If

      Rem  Calculo de AÑOS

      lngAnios = DateDiff("yyyy", Fecha_Inicio, Fecha_Fin)

      If Month(Fecha_Fin) < Month(Fecha_Inicio) Then

            lngAnios = lngAnios - 1

      ElseIf Month(Fecha_Fin) = Month(Fecha_Inicio) And Day(Fecha_Fin) <= Day(Fecha_Inicio) - 1 Then

            lngAnios = lngAnios - 1

      End If

      Rem  añadimos a fechaCalculo la fracción de tiempo que acabamos de computar

      datFechaCalculo = DateAdd("yyyy", lngAnios, Fecha_Inicio)

      Rem  Calculo de MESES

      bytMeses = DateDiff("m", datFechaCalculo, Fecha_Fin)

      If Day(Fecha_Fin) < Day(Fecha_Inicio) Then

            bytMeses = bytMeses - 1

      End If

      datFechaCalculo = DateAdd("m", bytMeses, datFechaCalculo)

      Rem  Calculo de DIAS

      bytDias = DateDiff("d", datFechaCalculo, Fecha_Fin)

      If Hour(Fecha_Fin) < Hour(Fecha_Inicio) Then

            bytDias = bytDias - 1

      End If

      datFechaCalculo = DateAdd("d", bytDias, datFechaCalculo)

      Rem  Calculo de HORAS

      bytHoras = DateDiff("h", datFechaCalculo, Fecha_Fin)

      If Minute(Fecha_Fin) < Minute(Fecha_Inicio) Then

            bytHoras = bytHoras - 1

      End If

      datFechaCalculo = DateAdd("h", bytHoras, datFechaCalculo)

      Rem  Calculo de MINUTOS

      bytMinutos = DateDiff("n", datFechaCalculo, Fecha_Fin)

      If Second(Fecha_Fin) < Second(Fecha_Inicio) Then

            bytMinutos = bytMinutos - 1

      End If

      datFechaCalculo = DateAdd("n", bytMinutos, datFechaCalculo)

      Rem  Calculo de SEGUNDOS

      bytSegundos = DateDiff("s", datFechaCalculo, Fecha_Fin)

      funTiempo = _

      lngAnios & " Años  " & _

      bytMeses & " Meses  " & _

      bytDias & " Dias  " & _

      bytHoras & " Horas  " & _

      bytMinutos & " Minutos  " & _

      bytSegundos & " Segundos"

End Function