Zeit dazu addieren

[Uwe Raabe]

Zitat von FunThomas:

Gibt es einen einfachen Weg um zu einem TDateTime eine gewisse Anzahl an Sekunden zu addieren, welches auch dann Datumsübergreifend funktioniert?

Die Unit System.DateUtils bietet eine Reihe von Funktionen dafür, z.B. diese:

Delphi-Quellcode:

function IncSecond(const AValue: TDateTime;
  const ANumberOfSeconds: Int64 = 1): TDateTime; inline;

[FunThomas]

Vielen Dank das IncSecond war die einfache Lösung

[rokli]

Und IncSecond lässt auch negative Werte zu; das entspricht dann einer Zeit-Subtraktion.

[FunThomas]

Hi Leute,
mit der Zeit habe ich jetzt das nächste Problem

gibt es eine Möglichkeit die Zeit auf die nächsten vollen 5 Minuten aufzurunden?
also nehmen wir an ich habe hier TDateTime mit Wert 27.09.2021 12:25:01 und den möchte ich auf den nächsten vollen 5 min Takt aufrunden
also auf 27.09.2021 12:30:00

gibt es da eine bessere Methode ausser mir jeweils die MinuteOfTheHour/SecondOfTheMinute zu holen und dann zu den Sekunden dazu addieren bis wieder 0 erreicht und bei den Minuten addieren bis mod 5 als Rest 0 ergibt?

Danke im Voraus,
Thomas

[Uwe Raabe]

Delphi-Quellcode:

var
  dt: TDateTime;
  interval: Int64;
  remain: UInt64;
begin
  dt := EncodeDateTime(2021, 9, 27, 12, 25, 1, 0);
  interval := (5*SecsPerMin*MSecsPerSec);
  remain := DateTimeToMilliseconds(dt) mod interval;
  dt := IncMilliSecond(dt, interval - remain);
end;

[FunThomas]

Vielen Dank funktioniert super!

[himitsu]

Es gibt mehrere Hilfsfunktionen

MinuteOf oder MinuteOfTheHour
RecodeMinute
ReplaceTime
...

Delphi-Quellcode:

// abrunden
RecodeMinute(D, MinuteOf(D) div 5 * 5);

// -aufrunden- [edit] auf nächste 5 Minuten
IncMinute(D, 5 - MinuteOf(D) mod 5);

// [add] aufrunden
IncMinute(D, (5 - MinuteOf(D) mod 5) mod 5);

Aber hier werden die Sekunden/Millisekunden nicht behandelt,
was beim Beispiel von Uwe durch IncMilliSecond abgefangen wird.

Ich dachte mal es gab auch eine MinuteOf-Variante, welche als Double implementiert war die Bruchteile der Sekunden/Millisekunden mit enthält.

[FunThomas]

Vielen Dank!

[Uwe Raabe]

Zitat von FunThomas:

Vielen Dank funktioniert super!

Vermutlich doch nicht so ganz. Das IncMilliSecond darf natürlich nur aufgerufen werden, wenn remain > 0 ist. Andernfalls würden auch 5 Minuten dazu addiert, wenn gerade ein 5-Minuten-Interval erreicht ist.

Delphi-Quellcode:

var
  dt: TDateTime;
  interval: Int64;
  remain: UInt64;
begin
  dt := EncodeDateTime(2021, 9, 27, 12, 25, 1, 0);
  interval := (5*SecsPerMin*MSecsPerSec);
  remain := DateTimeToMilliseconds(dt) mod interval;
  if remain > 0 then
    dt := IncMilliSecond(dt, interval - remain);
end;