Zeiten vergleichen

[Headi]

Hi dpler,

Habe leider wieder Mal ein kleines Problem.
Und zwar habe ich einen Button beim klick startet dieser einen von zwei Timern.
Dieser Timer soll jetzt jede sekunde überprüfen ob DateTimePicker1.Time und now gleich sind.
DateTimePicker1.Time = now geht da natürlich nicht, desshalb habe ich mir diesen Code gebastelt:

Delphi-Quellcode:

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject);
begin
If DateTimePicker1.Time < now then
begin
 If DateTimePicker1.Time+0.00001 > now then
  begin
   //hier der code der ausgeführt wird
  end;
end;
end;

In meinem Testprogramm funktionierte dieser Code auch.
Aber dann im echten Programm funktioniert dieser nicht mehr.

Kann mir vielleicht jemand den richtigen Code geben?

Vielen vielen dank

greez headi

[TStringlist]

Hi, du könntest dafür auch das Gleichheitszeichen nehmen. Und zwar dann, wenn du im NOW die darin enthaltenen Millisekunden jedesmal auf Null zurückstellst:

if DateTimePicker1.Time = RecodeMilliSecond(Now, 0) then ...

[himitsu]

Es wird wohl einfach nur so sein, das die Diverenz größer als 0,00001 ist.

Speicher einfach, ob der Code schon ausgeführt wurde

Delphi-Quellcode:

Var ausgefuehrt: Boolean;

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If (DateTimePicker1.Time < now) and not ausgefuehrt then 
  begin 
    ausgefuehrt := True;
    //hier der code der ausgeführt wird 
  end; 
end;


// ausgefuehrt muß natürlich vorher FALSE sein

oder schalte einfach den Timer aus

Delphi-Quellcode:

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If DateTimePicker1.Time < now then 
  begin 
    Timer1.Enabled := False;
    //hier der code der ausgeführt wird 
  end; 
end;

[marabu]

Hallo Pascal,

in Now ist auch der aktuelle Tag enthalten, darum würde ich den Vergleich so ausführen:

if DateTimePicker.Time < Frac(Now) then ... Grüße vom marabu

[ManuMF]

Hallo,

vielleicht hilft dir CompareDateTime.

Gruß,
ManuMF

[Headi]

Zitat von TStringlist:

Hi, du könntest dafür auch das Gleichheitszeichen nehmen. Und zwar dann, wenn du im NOW die darin enthaltenen Millisekunden jedesmal auf Null zurückstellst:

if DateTimePicker1.Time = RecodeMilliSecond(Now, 0) then ...

Dieser Code funktioniert bei mir irgendwie nicht, da er RecodeMilliSecond nicht erkennt.

Zitat von himitsu:

Es wird wohl einfach nur so sein, das die Diverenz größer als 0,00001 ist.

Speicher einfach, ob der Code schon ausgeführt wurde

Delphi-Quellcode:

Var ausgefuehrt: Boolean;

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If (DateTimePicker1.Time < now) and not ausgefuehrt then 
  begin 
    ausgefuehrt := True;
    //hier der code der ausgeführt wird 
  end; 
end;


// ausgefuehrt muß natürlich vorher FALSE sein

oder schalte einfach den Timer aus

Delphi-Quellcode:

procedure Tfrme_ausschalten.Timer1Timer(Sender: TObject); 
begin 
  If DateTimePicker1.Time < now then 
  begin 
    Timer1.Enabled := False;
    //hier der code der ausgeführt wird 
  end; 
end;

Geht leider auch nicht, ausschalten kann ich ja sowieso, aber er vergleicht ja nicht richtig.
Bei diesem code ist immer jenachdem nach oben oder unten offen.
Auch wenn ich die Diverenz grösser mache, funktioniert es nicht.

Zitat von marabu:

Hallo Pascal,

in Now ist auch der aktuelle Tag enthalten, darum würde ich den Vergleich so ausführen:

if DateTimePicker.Time < Frac(Now) then ... Grüße vom marabu

Und bei diesem Code passiert irgendwie auch wieder nichts.

Liegt das wirklich an mir?

Kann mir mal jemand sagen was ich falsch mache?

greez headi

[TStringlist]

Zitat von Headi:

Zitat von TStringlist:

if DateTimePicker1.Time = RecodeMilliSecond(Now, 0) then ...

Dieser Code funktioniert bei mir irgendwie nicht, da er RecodeMilliSecond nicht erkennt.

Dafür brauchst du die Unit 'DateUtils' in der Uses-Klausel.

[marabu]

Wenn ein Vergleich nicht so funktioniert, wie du es erwartest, dann schaue dir die Werte mal an, welche du miteinander vergleichen willst.

ShowMessage(DateTimeToStr(DateTimePicker.Time)); marabu

[Headi]

Zitat von TStringlist:

Zitat von Headi:

Zitat von TStringlist:

if DateTimePicker1.Time = RecodeMilliSecond(Now, 0) then ...

Dieser Code funktioniert bei mir irgendwie nicht, da er RecodeMilliSecond nicht erkennt.

Dafür brauchst du die Unit 'DateUtils' in der Uses-Klausel.

Ok das habe ich jetzt gemacht, nur funktioniert es immer noch nicht.
Also habe ich recodemillisecond auch mal beim DateTimePicker angewandt aber ging immer noch nicht

Zitat von marabu:

Wenn ein Vergleich nicht so funktioniert, wie du es erwartest, dann schaue dir die Werte mal an, welche du miteinander vergleichen willst.

ShowMessage(DateTimeToStr(DateTimePicker.Time)); marabu

Du wirst es nicht glauben, aber das habe ich schon X Mal gemacht, denn nur so konnte ich den code zusammenbasteln.
Das komische ist das beim testprogramm alles ging mit meinem code, nur immer wenn ich den Code in mein eigentliches Programm einbaue geht er nicht mehr

was mache ich nur falsch?

greez headi

[TStringlist]

Zitat von Headi:

Zitat von TStringlist:

Zitat von Headi:

Zitat von TStringlist:

if DateTimePicker1.Time = RecodeMilliSecond(Now, 0) then ...

Dieser Code funktioniert bei mir irgendwie nicht, da er RecodeMilliSecond nicht erkennt.

Dafür brauchst du die Unit 'DateUtils' in der Uses-Klausel.

Ok das habe ich jetzt gemacht, nur funktioniert es immer noch nicht.
Also habe ich recodemillisecond auch mal beim DateTimePicker angewandt aber ging immer noch nicht

Hm, bei meinem kurzen Check klappte das aber. Ich nehme daher an, Du wirst DateTimePicker1.Time vorher nicht mit einer extra für deinen Test auch brauchbaren Uhrzeit geladen haben (siehe 'Time' im OI). Ansonsten, wenn man diese 'Time'-Property vorher im OI eingegeben hat oder das nachher per Maus tut (bei 'Kind' = dtkTime), dann sind in diesem Time-Anteil nämlich keine Millisekunden enthalten, ergo müsste das auch funktionieren.

Wenn du 'Time' (für den Test) allerdings selbst wieder von NOW ableitest (z.B. im Click-Eventhandler eines Buttons):

  DateTimePicker1.Time := frac(RecodeMillisecond(NOW, 0) + 5*oneSecond); dann ist dafür natürlich auch wieder die RecodeMillisecond-Funktion nötig.