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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"