Tussenliggende tijd berekenen.

[EdWel]

Goedemiddag forum,

Ik wil in VBA uitrekenen hoeveel tijd er tussen bijv. 07:30 en 15:45 ligt.
Heb al vanalles geprobeerd met: Tijdsduur = Format(Begintijd, "hh:mm") - Format(Eindtijd, "hh:mm").
Ook met: Tijdsduur = TimeValue(Begintijd) - TimeValue(Eindtijd) kom ik er niet uit.

Ik hoop dat iemand me kan helpen.
Groet,
Ed

 

[jofred]

Beste EdWel,

Helpt de volgende code je verder:

Sub test()

Verschil = TimeSerial(16, 35, 17) - TimeSerial(6, 37, 7)
MsgBox Format(Verschil, "hh:mm:ss")
End Sub

 

[EdWel]

Beste Jofred,

TimeSerial was ik nog niet tegengekomen.
Moet wel eea. ombouwen met Left, Right enz. maar werkt perfekt !

Mijn dank is groot.

Ed