IncMinute tuts nich mehr...

[Lefko]

Zitat von himitsu:

So geht es:
IncMinute := IncMinute(Jetzt);

Bei mir nicht, genau wie vorher...

Zitat von himitsu:

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
      IncMinute := 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);
    {IncMinute := IncMinute(Jetzt, (5 - (minute mod 5)) mod 5);}
    IncMinute := IncMinute(Jetzt, (60 - minute) mod 5); {zweites mod wegoptimiert}
  End;

Ne, hab deine optimierte variante genommen, geht trotzdem nicht.....der wert wird nicht verändert.


MfG Lefko.