[Resolvido]Somar as horas por mês

Bom dia Amigos

No exemplo que anexo como somar o total de horas de todos os funcionários por mês ?

Primeiro descobrimos o total de horas

Código:

Soma(Format([abr];"hh"))

Depois somamos o total de minutos e pegamos a parte inteira da divisão por 60, assim sabendo o total de horas que os minutos acrescentam

Código:

Soma(Format([abr];"nn"))\60)

Juntamos os dois

Código:

Soma(Format([abr];"hh"))+(Soma(Format([abr];"nn"))\60)

Depois descobrimos o que resta de minutos após a divisão da somatória por 60

Código:

Soma(Format([abr];"nn")) Mod 60

Por fim, montamos tudo e preparamos a apresentação do campo

Código:

=(Soma(Format([abr];"hh"))+(Soma(Format([abr];"nn"))\60)) & ":" & (Soma(Format([abr];"nn")) Mod 60)

Damasceno

Com a última da lista que colocou.

O valor do circulo está certo.

Obrigado

Isso. Com o Nz. Onde referenciar o mês, coloque Nz([abr];0)

Bom dia Damasceno

com o  Nz([abr];0), ainda fica pior

Em um módulo crie essa função

Código:

Public Function fncSomaHoras(ByVal strCampo As String) As String

    Dim objRs As DAO.Recordset
    Dim dblTotal As Double
    
    Set objRs = CurrentDb.OpenRecordset("select " & strCampo & " from MapaAnual;")
    
    If objRs.RecordCount > 0 Then
    
        Call objRs.MoveFirst
        
        Do
        
            dblTotal = dblTotal + Nz(objRs(strCampo).Value, 0)
            Call objRs.MoveNext
        
        Loop Until objRs.EOF
        
    End If
    
    Call objRs.Close: Set objRs = Nothing
    
    If dblTotal = 0 Then
        fncSomaHoras = ""
    Else
    
        fncSomaHoras = Format(((Int(dblTotal) * 24) + Format(CDate(dblTotal - Int(dblTotal)), "h")), "00") & _
                       ":" & _
                       Format(CDate(dblTotal - Int(dblTotal)), "nn")
                      
    End If

End Function

E na fonte do controle agora use

Código:

=fncSomaHoras("jan")

Obrigado Damasceno

Perfeito

O fórum agradece o retorno. Sucesso.

Damasceno

Deixou de funcionar os totais

Obrigado e desculpa

Mais dados a serem trabalhados, mais situações a serem tratadas. Teste.

Código:

...
Do

    If Nz(objRs(strCampo).Value) <> "" Then
   
        If Split(Nz(objRs(strCampo).Value, 0), ":")(0) >= 24 Then
            dblTotal = dblTotal + _
                      (Split(objRs(strCampo).Value, ":")(0) \ 24) + _
                      CDate((Split(objRs(strCampo).Value, ":")(0) Mod 24) & Mid(objRs(strCampo).Value, InStr(objRs(strCampo).Value, ":")))
        Else
            dblTotal = dblTotal + CDate(objRs(strCampo).Value)
        End If
       
    Else
        dblTotal = dblTotal + CDate(IIf(Nz(objRs(strCampo).Value, "") = "", 0, Nz(objRs(strCampo).Value, 0)))
    End If

    Call objRs.MoveNext

Loop Until objRs.EOF
...

Obrigado Damasceno

Bom fim de Semana

O mesmo.