Seltsames verhalten von TDateTime mit if

[alzaimar]

Zitat von Luckie:

Aber ist dir schon mal der Gedanke gekommen, dass in DT.DateTime das Datum mit drinstreckt und in Time nur die zeit?

Warum würde es dann DT.DateTime heißen?

Ein Wecker klingelt übrigens dann, wenn die Zeit abgelaufen ist. Also würde ich sowas mal versuchen:
1.Idee;

Delphi-Quellcode:

If WeckZeit >= AktuellesZeit Then 
  Wecken;

Blöd, denn dann klingelt der Wecker ja immer.
Wenn der Wecker aber jeden Tag, aber nur 1x am Tag wecken soll, dann so:

Delphi-Quellcode:

If (WeckZeit >= AktuellesZeit) And HeuteNochNichtGeweckt Then 
  Wecken;

Oho. wie würde man das 'Heute noch nicht geweckt' implementieren? In dem man sich beim Wecken merkt, das man heute geweckt hat.

Delphi-Quellcode:

If (WeckZeit >= AktuellesZeit) And (WeckTag<HeutigerTag) Then Begin
  WeckTag := HeutigerTag;
  Wecken;
End;

Und schon hat man einen Wecker, der auch dann weckt, wenn man den Wecker zu spät gestartet hat.