Zeit dazu addieren

[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;