Ich möchte gerne einen Arbeitszeiten-Rechner bauen.
Dazu ist folgendes gegeben:
Edit-Feld "Arbeitsbeginn"
Edit-Feld "Arbeitsende"
Edit-Feld "Gesamtstunden"
Das Format sollte so aussehen: 07:30
Ich habe schon folgendes:
Delphi-Quellcode:
procedure Tzeiten.SpeedButton1Click(Sender: TObject);
var
zeitunterschied, zeit1, zeit2 : TTime;
begin
zeit1 := StrToTime (edt_beginn_1.Text);
zeit2 := StrToTime (edt_beginn_2.Text);
zeitunterschied := zeit2 - zeit1;
edt_std_gesamt.Text := TimeToStr (zeitunterschied);
end;
Mir macht halt das Format der Uhrzeit Probleme.
Wie kann ich das festlegen?