Zeitdifferenz "ordentlich" formatiert darstellen

[DeddyH]

Irgenwie fehlt mir da ein Funktionsparameter.

Delphi-Quellcode:

function ZeitBis(Hours, Mins, Secs{fehlte}: String): TTime;
var
  AThen: TDateTime;
  AHours, AMinutes,ASeconds: Word;
begin
  AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), StrToInt(Secs), 0); //4 Parameter

  ASeconds := SecondsBetween (Time, AThen);
  AMinutes := MinutesBetween(Time, AThen);
  AHours := AMinutes div 60;
  Dec(AMinutes, AHours * 60);

  Result := EncodeTime(AHours, AMinutes,ASeconds, 0);  //4 Parameter
end;