Announcement

Collapse
No announcement yet.

Wer kann helfen: Datum + 1 Woche = Alarm????

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Wer kann helfen: Datum + 1 Woche = Alarm????

    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?

  • #2
    Hallo,

    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 &lt; date - 7 then
    showmessage('Alarm');
    end;</pre>

    Viel Erfolg

    Comment


    • #3
      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???

      Comment


      • #4
        Hi

        Label1.Caption := FormatDateTime('hh/nn/ss', 1 - Frac(Now));

        lässt die Uhrzeit rückwärts laufen.

        Gruß Hage

        Comment


        • #5
          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)

          Vielen dank jetzt scho

          Comment


          • #6
            Wie kann ich folgendes umsetzen?

            Angenommen heute ist der 22.08.2000 und ich möchte dem Benutzer immer dem 1.1. des laufenden Jahres vorschlagen.

            also ist das in dem Fall der 1.1.2000 wie mache ich das??

            Und wie kann ich das ganze auf das vorjahr auslegen? zum Beispiel 31.12.1999

            Wie greife ich auf das jahr zu???

            WER KANN MIR HELFEN???

            BINE :_

            Comment


            • #7
              Hallo,

              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

              Comment


              • #8
                Hallo,

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

                Siehe: http://home.t-online.de/home/LohofH/helmi5.ht

                Comment

                Working...
                X