Opgelost rekenen met tijden boven de 24 uur

[JohanRVT]

Probleem met een rapport van ons vrijwilligers tijdsregistratiesysteem (met chip via scanner) waarbij dat de optelsom van bepaalde tijden niet lukt om alle uren weer te geven indien de optelsom boven de 24 uur gaat, in andere kolommen gaat het wel via een functie. Iemand een idee?
Zie bijgevoegd voorbeeldje en alvast terug bedankt voor de inbreng.

 

[OctaFish]

Je gebruikt nogal ingewikkelde truuks die ik niet snap. Met een simpele formule kun je het totaal namelijk prima berekenen:

=Som(([2]-[1])*24)

 

[JohanRVT]

Dat klopt als je het gebruikt voor berekening van de individuele records maar niet als je de totaalsom dan neemt van die uitkomsten kolom "duur" en die komt boven de 24 uur uit (wat het algemeen aantal uren per week van één persoon dus gewoonlijk steeds doet).

 

[JohanRVT]

Opgelost met

=GettotalTime(Som(([2]-[1])))

en de functie

Function GettotalTime(veldnaam)
On Error GoTo GettotalTime_Err
    Dim totalhours As Long, totalminutes As Long
    Dim totalseconds As Long
    Dim hours As Long, minutes As Long
    Dim seconds As Long
    Rem days = Int(CSng(veldnaam))
    totalhours = Int(CSng(veldnaam * 24))
    totalminutes = Int(CSng(veldnaam * 1440))
    totalseconds = Int(CSng(veldnaam * 86400))
    hours = totalhours
    minutes = totalminutes Mod 60
    seconds = totalseconds Mod 60
    GettotalTime = hours & ":" & minutes & ":" & seconds
GettotalTime_Exit:
    Exit Function

GettotalTime_Err:
MsgBox Error$
Resume GettotalTime_Exit

End Function