Arbeitszeit berechnen

[norbert3]

Hallo an alle,
ich habe ein Problem beim errechnen meiner Arbeitszeit.
Um die Zeitdifferenz zwischen Start- und Endzeit minus der Pause zu ermitteln, habe ich folgenden Code benutzt.

Delphi-Quellcode:

(*Zeit berechnen*)
DBEdit5.Text :=formatdatetime('h,mm',strtotime(DBEdit4.Text)   //Ende der Arbeitszeit
-strtotime(DBEdit2.Text)-Strtotime(DBEdit3.Text));             // Anfang und Pause der Arbeitszeit

Ich erhalte die richtige Zeitangabe, aber leider eben als 8,30 anstatt 8,50.
Jetzt meine Frage: Wie wandle ich diesen Zeitwert in eine Industriezeit um?

Ich hoffe, ich werde nicht gleich gesteinigt für meine Frage, aber ich habe in der Forensuche leider nichts gefunden.

Danke Norbert