Zeiten addieren

[Sharky]

Zitat von Arnulf:

...und man sieht auf den ersten blick was die zeile macht ... das ist wichtig denk ich.

Klar, das ist geschmacks sache. Ich finde es so halt einfacher:

Delphi-Quellcode:

// Aufgebaut auf dem "Code" von marabu
function AddMinutes (const aDT : TDateTime; const aMinutes : integer = 1) : TDateTime;
const
  OneMinute = 1 / 24 / 60;
begin
  result := aDT + (OneMinute * aMinutes);
end;

procedure TForm1.btn_TestClick(Sender: TObject);
var
  ZeitPlus30 : TDateTime;
begin
  ZeitPlus30 := AddMinutes(now,30);
end;