Stunden über 24 Addieren

[HolgerX]

Hmm..

Ich hätte mir das einfacher gemacht:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  D : TDateTime;
  H : integer;
  M : integer;
begin
  D := 0.0;
  // Summieren der Zeiten
  for i := 0 to Memo1.Lines.Count-1 do
    D := D + StrToTime(Memo1.Lines[i]);

  // Stunden / Minuten
  H := HoursBetween(0.0,D);
  M := MinuteOf(D);

  ShowMessage(IntToStr(H) + ':' + IntToStr(M));
end;

Solange die einzelnen Zeilen nur Zeitangaben enthalten, sollte es so funktionieren (Getestet mit D6 ).

[jaenicke]

Zitat von HolgerX:

Ich hätte mir das einfacher gemacht:

Wenn die Geschwindigkeit keine Rolle spielt, kann man es auch so lösen, klar.

[Uwe Raabe]

Da bisher nichts über die verwendete Delphi-Version gesagt wurde, werfe ich mal eine Lösung mit TTimeSpan ein. Sicher nicht die schnellste Lösung, sieht aber etwas eleganter aus:

Delphi-Quellcode:

program Project259;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.TimeSpan,
  System.Classes;

function GetTimeSum(const AValues: array of string): TTimeSpan;
var
  CurrentValue: string;
begin
  Result := TTimeSpan.Zero;
  for CurrentValue in AValues do begin
    Result := Result + TTimeSpan.Parse(CurrentValue);
  end;
end;

procedure Main();
var
  ts: TTimeSpan;
begin
  ts := GetTimeSum(['05:00', '10:00', '13:30', '03:00']);
  Writeln(Format('%.2d:%.2d', [Trunc(ts.TotalHours), ts.Minutes]));
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.