Zeit runden?

[API]

Hi,

Habe mal eine Frage:

Wie kann ich einen TDateTime Wert auf 5 Min genau (ab)runden?

Dieser Code zeigt beispielsweise 21.05.2008 21.01 an.
Die Zeit soll aber so abgerundet werden: 21.05.2008 21.00

Delphi-Quellcode:

FormatDateTime('dd.mm.yyyy hh:mm', Now)

[bluesbear]

Hi API,
suche hier mal nach DateTimeToMinutes - hilft dir das weiter?

[marabu]

Hallo,

ich könnte mir sowas vorstellen:

Delphi-Quellcode:

uses
  DateUtils;

function IntervallStart(dt: TDateTime; size: Word): TDateTime;
var
  n: Cardinal;
begin
  n := MinutesBetween(dt, 0) div size * size;
  Result := n * OneMinute;
end;

Getippt und nicht getestet.

Freundliche Grüße

[API]

Ich habe es nun so gemacht. Vielleicht gibt es eine einfachere Möglichkeit?

Delphi-Quellcode:

procedure RoundDownTo5Min(var h, m: Word);
begin
  m := 5 * Trunc((m - 2.5) / 5.0);
  if m = 60 then
  begin
    Inc(h);
    m := 0;
  end;
end; 

DecodeDateTime(Now, AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
RoundDownTo5Min(AHour, AMinute);
ATime := EncodeDatetime(AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
label1.Caption := FormatDateTime('dd.mm.yyyy hh:mm', ATime));

Edit: Danke Achim, werde deinen Code noch ausprobieren

[FAlter]

Hi,

und was passiert um 23:59?

Mfg
FAlter

[sx2008]

Ungetestet, sollte aber gehen ;-)

Delphi-Quellcode:

function TimeFloor5Min(time:TDateTime):TDateTime;
const Min5 = 5.0 / (24.0*60.0);
begin
   Result := Trunc(time / Min5) * Min5;
end;

[Chemiker]

Hallo,

kann man das nicht so lösen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  zeit : Extended;
begin
  zeit := StrToTime(Edit1.Text);
  zeit := Round(zeit*ZEIT_5MINUTEN)/ZEIT_5MINUTEN; // ZEIT_5MINUTEN = 12 * 24
  Label1.Caption := FormatDateTime('t', zeit);
end;

Bis bald Chemiker