Arbeitszeit berechnen

[norbert3]

Hey leute,
man sieht den Wald vor lauter Bäumen nicht

Delphi-Quellcode:

procedure TForm2.DBEdit5Click(Sender: TObject);
var bis, pause,von: TDateTime;

begin
(*Werte holen*)
   try
      pause := StrToDateTime(DBEdit3.Text); //Pause
      von := StrToDateTime(DBEdit2.Text);   //Von
      bis := StrToDateTime(DBEdit4.Text);   //bis

    (*Zeit umwandeln*)

    DBEdit5.Text := FloatToStr(24*(bis-von-pause));
     EXCEPT
     on EConvertError do
     begin
    ShowMessage('Bitte ein gültige Uhrzeit eintragen!');
    end;
   end;
end;