Tijdverschil berekenen bij gebruik van txtbox

[gst]

Geacht forum,

Het lukt mij niet om een tijdverschil te berekenen met behulp van een txtbox.
Toch zou ik hier graag gebruik van willen maken.
Heeft iemand een suggestie voor mij hoe dit wel te realiseren is?

Zie bijgevoegd voorbeeld

Bvd GST

 

[AccessGuru]

Zo moet het wel lukken:

Private Sub cmdStart_Click()
    frmTijdberekening.txtStarttijd = Format(Now(), "h:mm;@")
End Sub

Private Sub cmdStop_Click()
    frmTijdberekening.txtEindtijd = Format((Now() + ((10 * Rnd) + 1)), "h:mm;@")
End Sub

Private Sub cmdTijdTotaal_Click()
    frmTijdberekening.txtTotaaltijd = Format(TimeValue(frmTijdberekening.txtEindtijd) - TimeValue(frmTijdberekening.txtStarttijd), "h:mm;@")
End Sub

 

[gst]

AccessGuru,

Dank voor je reactie.
Het werkt bijna perfect.
Alleen wanneer begintijd voor 24:00 uur ligt en eindtijd na 24:00 uur, dan klopt de berekening niet.
Is hier ook nog een oplossing voor te bedenken?

Bvd, GST

 

[JEC.]

Zo:

Private Sub cmdStart_Click()
txtStarttijd = Format(Now(), "hh:mm")
End Sub


Private Sub cmdStop_Click()
txtEindtijd = Format((Now() + ((10 * Rnd) + 1)), "hh:mm")
End Sub

Private Sub cmdTijdTotaal_Click()
txtTotaaltijd = Format(Evaluate("mod(" & Replace((TimeValue(frmTijdberekening.txtEindtijd) - TimeValue(frmTijdberekening.txtStarttijd)), ",", ".") & ",1)"), "hh:mm")
End Sub

 

[gst]

JEC,

Zeer bedankt voor deze oplossing!
Kan het goed toepassen.

Grt. GST

 

[HSV]

In de module van het formulier is het overbodig om frmTijdberekening. of Me. die daar gelijk aan is aan te roepen.

Het kan dus wat korter:

txtTotaaltijd = Format(Evaluate("mod(" & Replace(TimeValue(txtEindtijd) - TimeValue(txtStarttijd), ",", ".") & ",1)"), "hh:mm")

Of:

txtTotaaltijd = Format(Evaluate("mod(" & Replace(CDate(txtEindtijd) - CDate(txtStarttijd), ",", ".") & ",1)"), "hh:mm")

een andere methode.

txtTotaaltijd = Format(CDate(txtEindtijd) - CDate(txtStarttijd) - Int(CDate(txtEindtijd) - CDate(txtStarttijd)), "hh:mm")