Mahlzeit,
also wie schon oben erwähnt bekommst du über now die aktuelle zeit z.B. so
Delphi-Quellcode:
Procedure TfrmFrom1.getTimebuttonclick()
var
aktuelleZeit:DateTime;
begin
aktuelleZeit := (now);
end;
So ungefähr und Du hast dann in der Variablen AktuelleZeit die gerade zu dem Zeitpunkt aktuelle Zeit drin stehen.
Dann noch ein edit Feld oder so in dem Du die zu Erreichende Zeit eingibst und diese beiden Zeiten kannst du dann an die Funktionen übergeben die schon genannt wurden wie z.B. MinutesBetween, aber um diese zu verwenden musst Du in den Uses die DateUtils eintragen, ansonsten klappt das nicht.
Und wenn Du dann den errechneten Wert zurückbekommen hast kannst Du z.B. den Timer benutzen und statt immer 1 sekunde drauf addieren zu lassen, wird eine abgezogen und bei erreichen von null ein hübscher Sound abgespielt, oder was auch immer Dir dazu einfällt, aber so in etwa würde ich es machen.
Gruss
Darkchild
Ich bin der Geist der stets verneint und das mit recht, denn alles was entsteht ist wert das es zugrunde geht, drum besser wär das nichts entstünde, so ist denn alles was ihr Sünde, Zerstörung, kurz das Böse nennt, mein eigendliches Element.