probleempje met optellen uren in rapport

[jo geuens]

hoi kan iemand hepen ik krijg mijn uren niet opgeteld

in mijn raport moet de duurtijd opgeteld worden

Bekijk bijlage opvolging herstellingen.zip

dit mijn voorbeeldje

 

[OctaFish]

Je kunt sowieso geen berekeningen maken in de pagina voettekst; dat moet ofwel een groepsvoettekst zijn, of een rapportvoettekst. Verder moet je in de voettekst verwijzen naar de velden die je sommeert, niet naar de uitkomst ervan want je kunt geen berekend veld meenemen in een sommatieveld. En als laatste: als een veld leeg is, heb je geen uitkomst en een leeg veld. En dat werkt ook niet met som.
Dus je veld [Duurtijd] zou deze formule kunnen hebbenL =Nz([Uurstop]-[Uurstart];0). En het veld [Tekst33] in de rapportvoettekst deze: =Som(Nz([Uurstop]-[Uurstart];0))*24.

 

[jo geuens]

hoi octafish

Ik heb deze beide in mijn report gezet maar de berekening van de totale tijd =Som(Nz([Uurstop]-[Uurstart];0))*24 blijft een fout geven bij mij

doe ik iets fout dan ?

 

[jo geuens]

hallo

niet stil gezeten heb het gevonden met volgende

deze in rapportvoettext in een textbox plaatsen
in bestuuringselementbron

=GetElapsedTime(Som(CSng([Uurstop]-[Uurstart])))

en in een module

 Function GetElapsedTime(interval)

 Dim totaaluren, totaalminuten As Long, totaalseconden As Long
 Dim dagen As Long, uren As Long, minuten As Long, seconden As Long

 dagen = Int(CSng(interval))
 totaaluren = Int(CSng(interval * 24))
 totaalminuten = Int(CSng(interval * 1440))
 totaalseconden = Int(CSng(interval * 86400))
 uren = totaaluren Mod 24
 minuten = totaalminuten Mod 60
 seconden = totaalseconden Mod 60

 GetElapsedTime = dagen & "d" & uren & " Uur " & minuten & " Minuten "

 End Function

 

[OctaFish]

Bekende functie . Ik gebruik zelf een variant die de string wat opkalefatert, maar deze doet het uiteraard ook prima. Overigens kreeg ik met mijn voorstel een prima uitkomst.