Zeiten SUM und ZA mit minus Zeiten ausgeben

[StoRmtec]

okay ich mache es so also ist das dann falsch

Delphi-Quellcode:

procedure Tzeitbuchen.Button2Click(Sender: TObject);
begin
  LongTimeFormat := 'hh:mm';
//zeiterfassung.Form1.adouebersicht.active := false;  //Übersicht wird deaktiviert
 DB_AZ.Text := formatDatetime('hh:mm',strtotime(DB_AZende.Text)-strtotime(DB_AZbeginn.Text)-strtotime(DB_Pause.Text));
 DB_ZA.Text := formatDatetime('hh:mm',strtotime(DB_SOLL.text)-strtotime(DB_AZ.Text));

 if StrToTime(DB_SOLL.Text) > StrToTime(DB_AZ.Text) then
begin
  x := StrToTime(DB_AZ.Text) - StrToTime(DB_SOLL.Text);
  DB_ZA.Text := '-' + TimeToStr(x);
end
else if StrToTime(DB_AZ.Text) < StrToTime(DB_SOLL.Text) then
begin
  x := StrToTime(DB_SOLL.Text) - StrToTime(DB_AZ.Text);
  DB_ZA.Text := TimeToStr(x);
end;