Arbeitszeitkonto

[guidok]

Wie wäre es damit:

Mit MinutesBetween können Sie die Differenz zwischen zwei TDateTime-Werten in Minuten ermitteln. MinutesBetween zählt nur vollständige Minuten. Deshalb meldet MinutesBetween als Differenz zwischen 09:00:00 Uhr und 09:00:59:999 Uhr den Wert Null, da die Differenz um eine Millisekunde kürzer als eine Minute ist.

Zur Nachtschicht:

In Delphi entspricht der Typ TDateTime einem Double-Wert. Der ganzzahlige Teil eines TDateTime-Wertes von Delphi entspricht der Anzahl der Tage seit dem 30.12.1899. Der fraktionale Teil des TDateTime-Wertes gibt die Tageszeit an.

Da du ja nur die Tageszeit angibst ist der ganzzahlige Teil in deinem Fall Null. Du müsstest als ganz einfach nur einen Tag zur Gehtzeit hinzufügen:

Gehtzeit := Gehtzeit + 1

Anschließend müsste auch die Nachschicht richtig berechnet werden.