[Resolvido]Horas acima das 24

Boa noite,

Queria trabalhar com esta função e referir-me também aos segundos, alguém pode ajudar?

Função aqui:
Public Function HrStr(dblHora As Double) As String
‘Pega um valor numérico e o converte para Horas/Minutos
‘Ex: 123,5 = “123:30”
‘Ex: 23,9833333333333 = “23:59”


Dim strHoras As String
Dim strMinutos As String


‘Pega as horas (parte inteira)
strHoras = CStr(Fix(dblHora))


‘Pega os minutos
strMinutos = Format$(Abs((dblHora – Fix(dblHora)) * 60), “00”)


‘Verifica se o total de minutos é 60
If strMinutos = “60” Then
strMinutos = “00”
strHoras = CStr(CDbl(strHoras) + 1)
End If


‘Concatena os dois
HrStr = strHoras & “:” & strMinutos


End Function



***********
Obrigado

Boa noite,
Conseguem ajudar?
Obrigado

Código:

TotalHoras: (24*Int(Sum([SeuCampoHoras]))+Format(Sum([SeuCampoHoras]);'h')) & Format(Sum([SeuCampoHoras]);':nn:ss')

Exemplo:
Download

Obrigado J Paulo,

Acabei de pesquisar agora e pode-se também transformar a quantidade total de segundos (número décimal), assim:
Me.HRSACIMA24 = (Format(Int([QUANTTOTALSECS] / 3600), "00") & ":" & Format(Int(([QUANTTOTALSECS] - (Int([QUANTTOTALSECS] / 3600) * 3600)) / 60), "00") & ":" & Format((([QUANTTOTALSECS] Mod 60)), "00"))


Abraço

Fico feliz.