Thema: Delphi Zeiten addieren

Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#11

Re: Zeiten addieren

  Alt 26. Sep 2005, 21:46
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"
  Mit Zitat antworten Zitat