IncMinute tuts nich mehr...

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

So geht es:
IncMinute := IncMinute(Jetzt); So kann man die If-Abfrage weglasssen:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Var Jetzt: TTime;
    stunde, minute, dummy: Word;

  Begin
    Jetzt := now;
    DecodeTime(Jetzt, stunde, minute, dummy, dummy);
    While minute mod 5 <> 0 do Begin
      Jetzt := IncMinute(Jetzt);
      DecodeTime(Jetzt, stunde, minute, dummy, dummy);
    End;
  End;

Aber das ist wohl das Kürzeste:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Var Jetzt: TTime;
    stunde, minute, dummy: Word;

  Begin
    Jetzt := now;
    DecodeTime(Jetzt, stunde, minute, dummy, dummy);
    {Jetzt := IncMinute(Jetzt, (5 - (minute mod 5)) mod 5);}
    Jetzt := IncMinute(Jetzt, (60 - minute) mod 5); {zweites mod wegoptimiert}
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif