Fazer calculos de horas por grupo no relatório do access

Question

Olá boa noite são quase 00:00 e eu estou aqui quebrando a cabeça, que para muitos parece ser simples... o que vou perguntar, mas para mim... TA OSSO.

Estou usando o modulo abaixo para calcular a diferença de horas num campo Data Geral.

Function Intervalo(Inicio, Termino) As String

    Dim strHoras As String, strMinutos As String

    Dim sglRet As Single

    If IsNull(Inicio) Or IsNull(Termino) Then Exit Function

    sglRet = (Termino - Inicio) * 24

    strHoras = Format(Int(sglRet), "00")

    sglRet = (sglRet - strHoras) * 60

    strMinutos = Format(Int(sglRet), "00")

    If Termino < Inicio Then

        Intervalo = Format(Inicio - Termino - 24, "hh:nn")

    Else

        Intervalo = strHoras & ":" & strMinutos

End If

End Function

Este modulo esta funciona para executar os calculos expecificados abaixo: MAS ESTOU COM UM GRANDE PROBLEMA, GOSTARIA MUITO DA AJUDA DE VOCÊS.

Ex.       DtaHraInicio                       DtaHraFinal              TotalDtaHra

         20/08/2012 23:50              21/08/2012 00:15               00:25                                    Resultado perfeito

         19/08/2012 10:01              21/08/2012 11:10                49:06                                   Resultado perfeito

PARA FAZER ESTE CALCULO NA CONSULTA USEI: **Total: Intervalo([DHInicio];[DHFinal])PARA FAZER ESTE CALCULO NO FORMULARIO USEI: =Intervalo([DHInicio];[DHFinal])O que esta me deixando louco é o relatório, criei um relatóio  como mostra abaixo: MAS PARA CALCULAR O TOTAL DE HORAS DE SERVIÇO E O TOTAL GERAL, NÃO ESTOU CONSEGUNDO, JÁ TENTEI DE VARIAS FORMAS. POR ISSO ESTOU AQUI PEDINDO A AJUDA DE VOCÊS.Motivo: MecânicoEquipamento          Defeito                                     DtaHraInicio                   DtaHraFinal               TotalDtaHora  (*Este campo traz o resultado da consulta)***Motor bbbb              aaaaaaaaaaaa                    20/08/2012 23:50       21/08/2012 00:15                 00:25   

Motor cccc               bbbbbbbbbbbbbbb             19/08/2012 10:01        21/08/2012 11:10                 49:06

Total de Horas Serviço:             49:31 **Motivo: ElétricoEquipamento          Defeito                                     DtaHraInicio                   DtaHraFinal               TotalDtaHora  (*Este campo traz o resultado da consulta)***Motor bbbb              aaaaaaaaaaaa                    20/08/2012 23:50       21/08/2012 00:15                 00:25   

Motor cccc               bbbbbbbbbbbbbbb             19/08/2012 10:01        21/08/2012 11:10                 49:06

Total de Horas Serviço:             49:31

Total Geral:                                    99:02  Fabiano Oliveira*** E-mail removido para fins de privacidade. ***ESTOU AGUARDANDO ANSIOSO PELA RESPOSTA.DESDE JÁ AGRADEÇO A AJUDA E A COMPREENSÃO DE TODOS.

Answer 1

isso ai eh vba. posta sua dúvida aki no link q os caras são especialistas nisso. aki eh mais basicão. vlw!

http://social.msdn.microsoft.com/Forums/pt-br/vbapt/threads

Answer 2

Dá uma olhada nessa solução do Luiz Cláudio C. V. Rocha:

http://msmvps.com/blogs/officedev/archive/2007/12/06/vba-converter-n-250-meros-para-horas-ex-2-5-para-2-30.aspx

Veja um exemplo utilizando esta função:

https://dl.dropbox.com/u/8080696/Integrado/HorasAcimaDe24Hs.zip

Answer 3

Nossa meu amigo estou ficando doido com isso, parece coisa simples, mas ta osso mesmo.

Já pesquisei em varios lugares, mostra como colocar o total por grupo com numeros, mas quando tento fazer com campo data e hora não vai.

E o modulo acima esta funcionando blza  Calcula linha a linha, MAS NÃO CONSIGO CALCULAR O TOTAL DE HORAS.