DateTime.TimeFormat = "HH:mm"
Dim nulluhr As Int = DateTime.TimeParse("00:00")
Dim soll As Int = DateTime.TimeParse(Sollzeit.Text)
Dim ticksoll As Int = (soll-nulluhr)/DateTime.TicksPerMinute
Log("SollMinuten="&ticksoll)
Dim von As Int = DateTime.TimeParse(EditVon.Text)
Dim tickvon As Int = (von-nulluhr)/DateTime.TicksPerMinute
Log("Von="&tickvon)
Dim bis As Int = DateTime.TimeParse(EditBis.Text)
Dim tickbis As Int = (bis-nulluhr)/DateTime.TicksPerMinute
Log("Bis="&tickbis)
Dim minuten As Int = tickbis-tickvon
Log("Minuten="&minuten)
Dim zeit As Period = DateUtils.PeriodBetween(von,bis)
Log(zeit.Hours&":"&zeit.Minutes)
Dim diff As Int = minuten - ticksoll
Log("Zeitdifferenz="&diff&" Minuten")
If diff < 0 Then
' Negative Zeit... MINUS
' in positiven Wert wandeln
diff = diff*-1
Dim hours, minutes As Int
hours = diff / 60
minutes = (diff Mod 60)
Log(NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0)&" im MINUS")
Else
Dim hours, minutes As Int
hours = diff / 60
minutes = (diff Mod 60)
Log(NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0)&" im PLUS")
End If