'Von Uhrzeit
Dim von As Long = DateTime.DateTimeParse( UebergabeTagesdatum, UebergabeStartZeit)
'Bis Uhrzeit
Dim bis As Long = DateTime.Now
'Ergebniss
Dim zeit As Period = DateUtils.PeriodBetween(von,bis)
'Übergabe
UebergabeSollzeit = NumberFormat(zeit.Days*24 + zeit.Hours, 2, 0) &":"& NumberFormat(zeit.Minutes, 2, 0) &":"& NumberFormat(zeit.Seconds, 2, 0)