Zeit addieren

[Leuselator]

das sollte einfacher gehen, da TDateTime Zeiten in der Form: TageSeitStartDatum.MillisekSeitMitternacht speichert:

Delphi-Quellcode:

type 
  TimeRec = Record
    Stunden  : Integer;
    Minuten  : Integer;
    Sekunden : Integer;
    Millisek : Integer;
  end;

function AddTimes(Zeiten : Array of TTime) : TimeRec;
var TempTime : TDateTime;
    Hour,
    Min,
    Sec,
    MSec : Word;
    i : Integer;
begin
  TempTime := 0.0;
  for i := Low(Zeiten) to High(Zeiten) do TempTime := TempTime+Zeiten[i];
  DecodeTime(TempTime,Hour,Min,Sec,MSec);
  Result.Stunden  := Trunc(TempTime)*24+Hour; // 
  Result.Minuten  := Min;
  Result.Sekunden := Sec;
  Result.Millisek := MSec;
end;

Du übergibst einfach ein Array von TTime-werten und bekommst das Ergebnis in der Form des TimRec-Rekords.
Gruß