Zeitdifferenz "ordentlich" formatiert darstellen

[Fussball-Robby]

Du müsstest Die Zeit erstmal mit EncodeTime zusammensetzen, dann die zeit dazwischen mittels MinutesBetween(DateUtils) ermitteln und diese Minuten dann wieder zu einer Zeit zusammensetzen:

Delphi-Quellcode:

function ZeitBis(Hours, Mins: String): TTime;
var
  AThen: TDateTime;
  AHours, AMinutes: Word;
begin
  AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), 0, 0);
  AMinutes := MinutesBetween(Time, AThen);
  AHours := AMinutes div 60;
  Dec(AMinutes, AHours * 60);
  Result := EncodeTime(AHours, AMinutes, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Zeit bis zum eingestellten Zeitpunkt: ' + TimeToStr(ZeitBis(Edit1.Text, Edit2.Text)));
end;