uren berekenen

[Risk]

Forum,

Ik wil het aantal uren berekenen dat een voertuig ter reparatie in de garage staat.

Daarbij terugrekenen naar dagen.

Ik heb de berekening gemaakt die de dagen telt. Dat is niet geheel juist, immer er wordt geen rekening gehouden met de uren van binnenkomst. 's Morgens vroeg, of 's avond aan het eind van de werkdag.

Ik worstel met:
wpluurin is moment van binnenkomst
wpluuruit is vertrek

=DateDiff("n", [wpluurin], [wpluurout]) \ 60 & Format(DateDiff("n",[wpluurin], [wpluurout]) Mod 60, "\:00")

Wat verder nog speelt zijn data's. Dus datum werkplaats in + tijd en datum werkplaats uit + tijd. Dat is even te ingewikkeld. Het eerste lukte al niet en google laat mij even inde steek.



Hoor en leer graag.

Risk

 

[Risk]

Forum,

Inmiddels aan het knutselen gegaan met behulp van en op het web gevonden oplossing (ten dele).

Ik heb gemaakt een module:

Option Explicit


 Function GetElapsedTime(interval)

 Dim totaaluren, totaalminuten As _
     Long
 Dim dagen As Long, uren As Long, minuten As Long

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

 GetElapsedTime = dagen & " Dagen " & uren & " Uren " & minuten & _
 " Min. "

 End Function

=GetElapsedTime([wpluurout]-[wpluurin])

Is mooi, maar niet geheel wat ik wil. Ik zou graag een invulveld werkplaats in (datum) en een invulveld tijd naast elkaar zetten. Ook voor werkplaats uit (datum) en tijd. Is voor de gebruiker handiger.

Doe ik dat in de query? code?? of in de module.

Graag hulp bij het laatste stukje van de puzzel a.u.b.

Dank, leer steeds meer.:d

Risk