IncMinute tuts nich mehr...

[Lefko]

Hallo Freunde :hi: ,

schaut euch folgenden Code an und sagt mir, warum der befehl IncMinute nichts macht!!

hier:

Delphi-Quellcode:

procedure TForm1.FormDblClick(Sender: TObject);
var Jetzt : TTime;
    stunde, minute, dummy : word;
begin
   Jetzt := now;
   DecodeTime(Jetzt, stunde, minute, dummy, dummy);
   if minute mod 5 <> 0
     then
      repeat
       IncMinute(Jetzt);
       DecodeTime(Jetzt, stunde, minute, dummy, dummy);
      until minute mod 5 = 0;
end;

So läuft das zwar, aber es ist eine Endlosschleife, nur weiss ich nicht, warum....

der wert von "minute" bleibt immer gleich!?

MfG Lefko.

[OLLI_T]

HY Lefko!

Leider kennt mein D5 diese Fkt nicht. Aber wenn es analog zu IncMonth läuft ...:

Delphi-Quellcode:

 Jetzt:=IncMinute(Jetzt);

Könnte mir vorstellen, dass die Fkt nen TDatetime-Wert als Parameter erwartet!

Gruss

OLLI

[himitsu]

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

So geht es:

Delphi-Quellcode:

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.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Lefko]

Zitat:

Zitat von OLLI_T

HY Lefko!
Leider kennt mein D5 diese Fkt nicht. Aber wenn es analog zu IncMonth läuft ...:

Wahrscheinlich doch, du musst die Unit DateUtils einbinden!

Zitat:

Zitat von OLLI_T

Könnte mir vorstellen, dass die Fkt nen TDatetime-Wert als Parameter erwartet!

Hab ich auch schon probiert, aber ändert nix.

Zitat:

Zitat von OLLI_T

Delphi-Quellcode:

 Jetzt:=IncMinute(Jetzt);

Werd ich mal kurz probieren...


MfG Lefko.

[Lefko]

Zitat:

Zitat von himitsu

So geht es:

Delphi-Quellcode:

IncMinute := IncMinute(Jetzt);

Bei mir nicht, genau wie vorher...

Zitat:

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.

[Kamil]

nicht IncMinute := IncMinute(Jetzt,...) sondern Jetzt := IncMinute(Jetzt,...)

[Lefko]

Hm, hab s mal probiert mit

Delphi-Quellcode:

jetzt := incminute(jetzt);

und das funktioniert...

@himitsu: war das mit dem incminute := incminute(jetzt) nur n schreibfehler? ;)

also, jetzt geht es, danke :)


MfG Lefko.

[himitsu]

Zitat:

Zitat von OLLI_T

Könnte mir vorstellen, dass die Fkt nen TDatetime-Wert als Parameter erwartet!

Delphi-Quellcode:

Type
  TDateTime = Type Double;
  TDate     = Type TDateTime;
  TTime     = Type TDateTime;

Zitat:

Zitat von Lefko

@himitsu: war das mit dem incminute := incminute(jetzt) nur n schreibfehler?

Nee, falsch kopiert. :oops:

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif http://www.FrankNStein.de/Smiley-Spinne.gif http://www.FrankNStein.de/Smiley-Winken.gif