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;