Zeiten addieren

[Sharky]

Zitat:

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;

[Matze]

Zitat:

Zitat von Sharky

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

Einfacher würde ich das nicht nennen. Ich würde auch eine Funktion schreiben, wenn man das öfters aufrufen muss. Kommt es nur einmal vor, bevorzuge ich meine Variante, da sie sehr kurz und, meiner Meinung nach, sehr übersichtlich ist. Sonst kann ich keine Nachteile erkennen. ;)

[marabu]

Hallo Matthias,

dein StrToTime() funktioniert nicht auf jedem Rechner - der TimeSeparator unterliegt der Kontrolle des Anwenders.

Freundliche Grüße vom marabu

[Matze]

Ah, danke Marabu, wieder was gelernt. Ich würde nun auch Sharkys Methode bevorzugen. :stupid: