Event zum Datumswechsel ?

[mschaefer]

Hallo zusammen,

gibt es bei Windows ein Event zum Datumswechsel ?

Grüße // Martin

[TiGü]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    procedure WMTimeChanged(var Message: TWMTimeChange); message Winapi.Messages.WM_TimeChange;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm1.WMTimeChanged(var Message: TWMTimeChange);
begin
  // hier kannst du jetzt alles machen
end;

end.

[Neutral General]

Sicher dass das klappt TiGü?
Kommt drauf an was er meint. Ich glaube er redet nicht davon dass jemand das Datum ändert, sondern dass sich das Datum von selbst ändert (neuer Tag).
Kann mich aber auch irren. :gruebel:

[Der schöne Günther]

Ich würde mir die Uhrzeit JETZT anschauen, ausrechnen wann der nächste Tag kommt und mir einen Timer mit entsprechendem Intervall setzen. Einfacher geht's doch nicht.

[TiGü]

Zitat:

Zitat von Neutral General (Beitrag 1382859)

Sicher dass das klappt TiGü?
Kommt drauf an was er meint. Ich glaube er redet nicht davon dass jemand das Datum ändert, sondern dass sich das Datum von selbst ändert (neuer Tag).
Kann mich aber auch irren. :gruebel:

Nö, aber ich werde auch nicht bis Mitternacht warten, um es zu überprüfen! :-D

[mschaefer]

Nein, Michael irrt sich nicht :-). Ich lauere tatsächlich auf die Geisterstunde oder besser den Datumswechsel zu Beginn. WMTimeChanged wird leider nur aufgerufen, wenn jemand von Hand daran geschraubt hat, eigentlich schade. So bleibt im Moment tatsächlich nur die Rechenmethode.

Vielen Dank in die Runde

Martin

[Glados]

Also das hier wird bei mir aufgerufen wenn der Nutzer das Datum/die Zeit ändert oder das System es automatisiert macht

Delphi-Quellcode:

procedure WMTimeChange(var msg: TMessage); message WM_TIMECHANGE;

procedure TForm1.WMTimeChange(var msg: TMessage);
begin
 // ...
 inherited;
end;

[mschaefer]

Uhps das war mir nicht klar. Dann passt das ja prima. Danke ;-)

[Glados]

Change, nicht Changed. Das war alles.

[himitsu]

Du könntest die Windows Aufgabenplanung bitten dich um Mitternacht zu informieren.

[HolgerX]

Hmm..

WM_TIMECHANGE wird nur gesendet, wenn das System durch eine APP oder ein User durch eine APP die Systemzeit verstellt.

Jedoch nicht, wenn durch normales weiterticken die Zeit weiterläuft!

Ein Event bei regulärem Datums wechsel um Mitternacht gibt es nicht.

Such mal hier im Forum, da wurde so etwas schon diskutiert..

Ich glaube, damals blieb es auch bei einem Timer oder Thread, welcher selber prüft und dann ein eigenes Event feuert.

[t.roller]

isPM

Gibt an, ob der angegebene TDateTime-Wert eine nach dem Mittag liegende Zeit angibt.

isAM

Gibt an, ob der Zeitanteil eines angegebenen TDateTime-Wertes in den Vormittag fällt.

IsAM gibt True zurück, wenn der Zeitanteil von AValue in den Zeitraum nach 00:00 (Mitternacht) und vor 12:00 (Mittag) fällt.
IsAM wird um Mitternacht true.

IsPM gibt true zurück, wenn der Zeitanteil in AValue bei oder nach 12:00 Uhr und vor 24:00 Uhrliegt.
IsPM wird um Mitternacht false.

http://docwiki.embarcadero.com/Libra...DateUtils.IsPM

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject); //oder Timer
var
  DateTime: TDateTime;
begin
  DateTime := Date + Time;
  { Verify if the time portion of the TDateTime variable occurs after noon }
  if IsPM(DateTime) then
    ShowMessage('It is after-noon')
  else
    ShowMessage('It is morning');
...

oder:

Delphi-Quellcode:

function IsAM(const D: TDateTime): Boolean;
begin
  Result := TimePart(D) < 0.5;
end;

function IsPM(const D: TDateTime): Boolean;
begin
  Result := TimePart(D) >= 0.5;
end;

function IsNoon(const D: TDateTime): Boolean;
var T : Double;
begin
  T := TimePart(D);
  Result := (T >= 0.5) and (T < 0.5 + OneMillisecond);
end;

function IsMidnight(const D: TDateTime): Boolean;
begin
  Result := TimePart(D) < OneMillisecond;
end;

[Glados]

....

[nahpets]

@T.Roller

aber damit weiß ich noch nicht irgendwann zur Programmlaufzeit, ob nun Mitternacht ist oder nicht, es sei denn, ich frage "permanent" ab.

Der Threadersteller möchte aber automatisch informiert werden (möglichst ohne eigenes Zutuen).

Gugst Du hier http://www.delphipraxis.net/1332933-post2.html für eine Timerlösung.