auf Datumsänderung reagieren

[nahpets]

Schaumal bitte hier: http://www.delphipraxis.net/1332933-post2.html

[Michael II]

naphets Beispiel Code:

Zitat:

// Der Rundungsfehler liegt bei +/- einer Millisekunde

...wobei man immer noch an die User vor Vista denken sollte - bei den "vor Vista OS" zeigt now nur alle 10-55Millisekunden eine neue Zeit an. (Ich weiss, es spielt bei dieser Anwendung kaum eine Rolle.)

Und ein kleiner Tipp: Neben trunc kennt Delphi auch round und frac. Dann lassen sich die Millisekunden bis zum nächsten Tag auch so berechnen:
m := round((1-frac(now))*24*60*60*1000); Fertig kluggeschi...

[p80286]

Definiere Datumswechsel!
Im allgemeinen hat sich das Datum geändert wenn ich morgens wach werde, und irgendwann zwischen 23:59,59 und 0:01,00 ändert sich das Datum. Eine weitere Möglichkeit wäre es per Schiff oder Flugzeug die Datumsgrenze zu überschreiten. Es kommt immer auf die Betrachtungsweise an.

Gruß
k-H

[Helmi]

Zitat von p80286:

Definiere Datumswechsel!
Im allgemeinen hat sich das Datum geändert wenn ich morgens wach werde, und irgendwann zwischen 23:59,59 und 0:01,00 ändert sich das Datum. Eine weitere Möglichkeit wäre es per Schiff oder Flugzeug die Datumsgrenze zu überschreiten. Es kommt immer auf die Betrachtungsweise an.

Wo ist der Unterschied?
Es ändert sich das Datum - wie auch immer

Ich versteh aber deine Frage.
Entweder man möchte auf Datumwechsel von Tagen reagieren oder auf Datumswechsel, die egal wie entstehen können.

Nichtsdestotrotz werd ich die simpelste Variante wählen und einfach in einem Timer das Datum vergleichen.

[a.def]

Zitat:

Nichtsdestotrotz werd ich die simpelste Variante wählen und einfach in einem Timer das Datum vergleichen.

Das hier ist noch simpler und funktioniert mit automatisierten und manuellen Zeitänderungen:
...herausfinden, wenn die Systemzeit geändert wurde?

[Helmi]

Zitat von a.def:

Zitat:

Nichtsdestotrotz werd ich die simpelste Variante wählen und einfach in einem Timer das Datum vergleichen.

Das hier ist noch simpler und funktioniert mit automatisierten und manuellen Zeitänderungen:
...herausfinden, wenn die Systemzeit geändert wurde?

Aber so wie ich das verstehe, nur, wenn man die Systemzeit ändert (z. B. manuell im Dialog).
Nicht, wenn sich das Datum ändert, weil ein neuer Tag beginnt.

[a.def]

Gerade getestet.

Manuell, aber nicht über den Windows-Dialog. Also dasselbe wie eine automatisierte Änderung ( ) :

Delphi-Quellcode:

procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
var
  NewDateTime: TSystemTime;
begin
  FillChar(NewDateTime, SizeOf(NewDateTime), #0);
  NewDateTime.wYear := Year;
  NewDateTime.wMonth := Month;
  NewDateTime.wDay := Day;
  NewDateTime.wHour := Hour;
  NewDateTime.wMinute := Minu;
  NewDateTime.wSecond := Sec;
  NewDateTime.wMilliseconds := MSec;
  SetLocalTime(NewDateTime);
end;

SetDateTime(2017, 04, 30, 12,13,14,00);

[Michael II]

Ja Helmi

die Windowsmessage WM_TIMECHANGE wird immer dann gefeuert, wenn an der Systemzeit geschraubt wird.

Du kannst es auch leicht testen. Knall ein TApplicationEvents auf ein Form, wähle ApplicationEvents1.OnMessage und ergänze:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_TIMECHANGE then
  begin
    ShowMessage( 'Aber Hallo' );
    Handled := true;
  end;
end;

...und nun änderst du die Zeit auf deinem Compi. Dein Programm meldet sich mit "Aber Hallo".

WM_TIMECHANGE hilft dir also nix.

Wie erwähnt: In Extremis könntest du einen Timer mit Intervall round((1-frac(now))*24*60*60*1000) starten und würdest so benachrichtigt, wenn ein neuer Tag beginnt. Problem gelöst mit einem Einzeiler. [Wenn du dem Zeitmesser auf deiner Kiste nicht traust, dann kannst du ja häufiger checken .]