Komme nicht weiter mit Zeitvergleichen?

[AlexII]

Hallo,
ich möchte einen Wecker schreibe und hab folgendes geschrieben:

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
DateTimePicker2.Time:=Now;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
if DateTimePicker2.Time=Now then ShowMessage('Ok');
end;

Die if Abfrage funktioniert komischerweise nicht, verstehe nicht wieso, ist doch alles richtig geschrieben. Timer.Interval :=1 sek. Wer weiß da weiter? Danke!

[Gausi]

Der Wert von Now ist genauer als der Wert, den du angibst. 15.42 Uhr ist halt nicht derselbe Zeitpunkt wie 15.42 Uhr, 13 Sekunden und 123 Millisekunden.

Außerdem: TDatetime ist ein Float-Typ - die sollte man generell nicht auf Gleichheit überprüfen.

[AlexII]

Also DateTimePicker2.Time zeigt auch Sekunden an.... hm... und Timer vergleicht auch Millisekunden ah..jah...
Wie vergleicht man dann am besten eine Uhrzeit? Auch so, dass es auf Fremdsprachwindows läuft.

[Sir Rufo]

Und wenn man etwas nicht versteht, dann gibt man sich die Werte mal in einer Memo aus und schaut, ob der Vergleich wirklich passen könnte

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
var
  Vergleich : TDateTime; 
begin 
  Vergleich := now; // Merken, weil now ja weiter läuft!!!
  Memo1.Lines.Add( Format( 'DateTimePicker: %s Now: %s', [ FloatToStr( DateTimePicker2.Time ), FloatToStr( Vergleich ) ] );
  if ( DateTimePicker2.Time = Vergleich ) then ShowMessage('Ok'); 
end;

[Sharky]

Zitat von AlexII:

... Wie vergleicht man dann am besten eine Uhrzeit? ...

In diesem Fall einfach mit >= vergleichen.

[Luckie]

Zitat von Sharky:

Zitat von AlexII:

... Wie vergleicht man dann am besten eine Uhrzeit? ...

In diesem Fall einfach mit >= vergleichen.

Plus einem Deltawert, sonst stimmt der Vergleich 23 Stunden und 59 Minuten.

[AlexII]

Zitat von Sir Rufo:

Und wenn man etwas nicht versteht, dann gibt man sich die Werte mal in einer Memo aus und schaut, ob der Vergleich wirklich passen könnte

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
var
  Vergleich : TDateTime; 
begin 
  Vergleich := now; // Merken, weil now ja weiter läuft!!!
  Memo1.Lines.Add( Format( 'DateTimePicker: %s Now: %s', [ FloatToStr( DateTimePicker2.Time ), FloatToStr( Vergleich ) ] );
  if ( DateTimePicker2.Time = Vergleich ) then ShowMessage('Ok'); 
end;

Now muss ja auch weiterlaufen, DateTimePicker2.Time bleibt konstant eingestellt und vergleichen tust du genauso wie ich, was genauso nicht funktioniert.

[TheFrog]

Vielleicht kommst Du ja mit der Delphi-Procedure DecodeTime() weiter. Diese zerlegt Dir den Zeitwert in Stunden, Minuten, ..., welche Du dann vergleichen kannst.

Hans.

[Sir Rufo]

Zitat von AlexII:

Zitat von Sir Rufo:

Und wenn man etwas nicht versteht, dann gibt man sich die Werte mal in einer Memo aus und schaut, ob der Vergleich wirklich passen könnte

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
var
  Vergleich : TDateTime; 
begin 
  Vergleich := now; // Merken, weil now ja weiter läuft!!!
  Memo1.Lines.Add( Format( 'DateTimePicker: %s Now: %s', [ FloatToStr( DateTimePicker2.Time ), FloatToStr( Vergleich ) ] );
  if ( DateTimePicker2.Time = Vergleich ) then ShowMessage('Ok'); 
end;

Now muss ja auch weiterlaufen, DateTimePicker2.Time bleibt konstant eingestellt und vergleichen tust du genauso wie ich, was genauso nicht funktioniert.

Du sollst Dir ja auch die Werte !!ansehen!! und dann wirst du !!sehen!! warum das nicht funktioniert!!!
Und der Wert von Now wird sich deshalb gemerkt, damit auch das ausgegeben wird, was danach dann auch verglichen wird!

[Sherlock]

OK, weils keiner wirklich erklärt hat, versuch ich mich mal daran:

Wissenswerte Voraussetzungen:

• Ein DateTime erfasst auch Millisekunden.
• Now ist natürlich auch auf die Millisekunde genau.
• Der Timer ist nicht Millisekunden genau, da windows keine Echtzeitsystem ist.

Wenn Du also (millisekunden-)genaue Gleichheit prüfen möchtest ist es extrem wahrscheinlich, daß Du nicht die korrekte Millisekunde erwischst. Deshalb soltlest Du vielleicht nur Sekunden- oder Minutengenau prüfen. Wie Du das anstellst überlass ich mal Deiner Phantasie.

Sherlock