Wenn in Time wirklich nur Zeiten und kein Datum enthalten ist, dann
Delphi-Quellcode:
function TFrmMain.AddTimes(Time1, Time2: TTime; var TimeSum: TTime): Boolean;
begin
TimeSum := Time1 + Time2;
Result := TRUE;
end;
vor dem Komma wären die Tage, statt dem Datum (Datum = Tage seit 30.12.1899)
Delphi-Quellcode:
function TFrmMain.AddTimes(Time1, Time2: TTime; var TimeSum: TTime): Boolean;
var
Day, Std, Min, Sec: Integer;
begin
Day := Trunc(Time1) + Trunc(Time2);
Sec := SecondOf(Time1) + SecondOf(Time2);
Min := MinuteOf(Time1) + MinuteOf(Time2);
Std := HourOf(Time1) + HourOf(Time2);
Min := Min + Sec div 60;
Sec := Sec mod 60;
Std := Std + Min div 60;
Min := Min mod 60;
Day := Day + Std div 24;
Std := Std mod 24;
TimeSum := Day + EncodeTime(Std, Min, Sec, 0);
Result := TRUE;
end;