Programm beibringen, vor bestimmtem Datum/Uhrzeit zu agieren

[SoD]

Moin liebe DPler,

ich versuche mich gerade an einer reminder-ähnlichen Funktion, die mit Hilfe der CoolTray einen Balloontipp ausgeben soll, wenn ein Event ansteht. Das Datum wird aus einer Datenbank Table entnommen. Der Zeitabstand wird aus einem MainMenu gewählt.

Wie kann ich nun aber dem Programm beibringen, NUR vor dem gewählten Intervall den Balloontipp zu bringen. Bis jetzt kommt er schon beim Programmstart, was ja eigentlich nicht Sinn der Sache ist, heute über ein Event in 10 Jahren erinnert zu werden.

Hier bisher mein Lösungsansatz:

Delphi-Quellcode:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  case IntervalsMenu.MenuIndex of
    1: DaySpan(Table1.Fields[6].AsDateTime,Now-0.00374);  // 5 Min
    2: DaySpan(Table1.Fields[6].AsDateTime,Now-0.00694);  //10 Min
    3: DaySpan(Table1.Fields[6].AsDateTime,Now-0.01042);  //15 Min
    4: DaySpan(Table1.Fields[6].AsDateTime,Now-0.02083);  //30 Min
    5: DaySpan(Table1.Fields[6].AsDateTime,Now-0.04167);  // 1 Std
    6: DaySpan(Table1.Fields[6].AsDateTime,Now-1.00000);  // 1 Tag
  end;
end;

Füge ich das evtl. an der falschen Stelle ein? Oder sollte ich addieren, statt subtrahieren? :gruebel:

Vielen Dank schon mal für eure Mühen,
SoD

[SimStar001]

Also, wenn du deine Zeitangabe des Events aus einer DB entnimmst, gehe ich mal von aus, dass dieser Wert dort nen TimeStamp ist. Also ein Int64 Wert in Sekunden ab 1899 oder 1900 rum.
Wenn der Fall, dann erstell doch einfach in deinem Programm einen aktuellen Timestamp über die systemzeit. TimeToUnix oder so.

und dann einfach Zeit aus DB mit aktuellem ermittelten TimeStamp subtrahieren und die differenz prüfen und dann kannste genau ein Intervall bestimmen.

Bsp:

TimeStamp aus DB -->

Delphi-Quellcode:

DBTimeStamp := 1248542952;
SysTimeStamp := 1248539952;

Differenz := DBTimeStamp - SysTimeStamp;

case Differenz of
  0..3600 : do something; //tue was --> noch eine Stunde Zeit bis zum Ereignis....
  3601..xyz : do something else;
  end;

Wenn deine Differenz kleiner Null ist, dann ist dein Ereignis schon abgelaufen und du brauchst dich nicht mehr drum kümmern.