Problem mit Zeiten-Addition

[himitsu]

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;