Ich hätte es jetzt folgendermassen und relativ umständlich gemacht, sollte aber leicht nachzuvollziehen sein:
Delphi-Quellcode:
var
t: TTime;
begin
if StrToTime(dbedit9.Text) > StrToTime(dbedit8.Text) then
begin
t := StrToTime(dbedit8.Text) - StrToTime(dbedit9.Text);
dbedit7.Text := '-' + TimeToStr(t);
end
else if StrToTime(dbedit9.Text) < StrToTime(dbedit8.Text) then
begin
t := StrToTime(dbedit8.Text) - StrToTime(dbedit9.Text);
dbedit7.Text := TimeToStr(t);
end;
Ansonsten:
Delphi-Quellcode:
var
t: TDateTime;
begin
dbedit7.Text := DateTimeToStr(DateUtils.MinutesBetween(StrToDateTime(dbedit8.Text), StrToDateTime(dbedit9.Text)));
end;
Hier müsstest du lediglich noch darauf achten das zuerst das jetzt kommt und dann das dann -.-