Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Ich will ein Programm schreiben in dem z.B eingegeben wird wann ein Buch ausgeliehen wurde. Wenn ich nun nicht vor Ablauf einer Woche z.B. einen Button drücke, soll ein Alarm (showmessage) ausgelöst werden.
Wie geht das?
mit einem Datum kann man rechnen, also einfach 7 Tage addieren oder subtrahieren. Dieses Beispiel wird dir weiterhelfen:
<pre>procedure TForm1.Button1Click(Sender: TObject);
var suchdatum : TDate;
begin
suchdatum := StrToDate(edit1.text);
if suchdatum < date - 7 then
showmessage('Alarm');
end;</pre>
Danke für deine Hilfe, kannst Du mir auch sagen, wie ich eine Uhrzeit anzeigen und nach einem Buttonclick die selbe dazu veranlassen kann rückwärts bis 0 zu zählen???
Danke, Du hast mir sehr geholfen.
Ich will das der Nutzer in einer listbox die folgende Einträge hat, einen Wert auswählt und dieser Wert als label angezeit wird. Sobald dieser Wert als Label angezeigt wird, soll das zurückzählen auf 0 erfolgen und eine Aktion ausgelöst werden.
Das sind die Listbox-Einträge
(10 min, 20 min, 30 min, 1 Std, 2 Std)
mit <b>DecodeDate</b> kann ein Datumswert in die drei Bestandteile Tag, Monat und Jahr aufgeteilt werden (siehe Beispiel in der Delphi-Hilfe). Nun kann man den Wert des Jahres verändern und über die Funktion <b>EncodeDate</b> (auch dafür ist ein Beispiel in der Hilfe) wieder in ein Datum umwandeln
Mit Datums- und Zeitangaben lässt sich sehr viel berechnen.
Ich habe für einige Programme umfangreiche Berechnungen
realisieren müssen.
Als Beispiel habe ich diesen Ausschnitt auf eine HP zum
Download bereit gelegt.
Z.B. Werktag, erster Montag des Jahres, Datum einer Kalenderwoche
und und und....
Comment