Event zum Datumswechsel ?

[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.