Wieder ein Countdown Problem

[Maddin-G]

Einen Wunderschönen Guten Morgen an alle!

Hab mich in letzter Zeit mit meinem Countdown Programm beschäftigt. Über ein DateTimePicker wählt man das Datum aus und über einen zweiten die Uhrzeit.

Nach dem Klicken auf einen Button wird die Restzeit(Jahre, Monate, Tage, Stunden, Minuten, Sekunden) angezeigt.

Das Programm wäre zu 100% fertig, wenn da nicht so ein Blöder Bug wäre:


Wenn ich z.B. angebe er soll bis heute bis zu einer bestimmten Uhrzeit(die aber noch nicht vorbei ist) runterzählen, setzt er bei

Jahre - 2005, Monate - 08, Tage - 17, also das Datum von Vorgestern. Setz ich aber das Datum auf Morgen sieht es so aus:

Jahre - 2005, Monate - 08, Tage - 18, ein Tag mehr usw., was ja auch logisch ist.

Wieso zählt er aber von diesem bestimmten Datum?

Ich sitz jetzt an diesem Programm schon seit ca. 2 Monaten und war der Meinung ich schaffe es ohne irgendwelche Hilfe, falsch gedacht!

Ich brauch euch Leute, es kann nicht so schwer sein so ein kleines Programm zum Laufen zu bringen?

Ich Poste einfach mal den ganzen Code hier und häng das Projekt gerart als Datei auch nochmal an.


Mit der Angehängten EXE könnt ihr weiter rumprobieren.

Delphi-Quellcode:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Button1: TButton;
    Timer1: TTimer;
    DateTimePicker1: TDateTimePicker;
    Panel2: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    LJahre: TLabel;
    LMonate: TLabel;
    LTage: TLabel;
    LStunden: TLabel;
    LMinuten: TLabel;
    LSekunden: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label9: TLabel;
    LDatum: TLabel;
    LZeit: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    datum : TDate;
    zeit : TTime;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

      datum := DateTimePicker1.Date;
      zeit  := DateTimePicker2.Time;

      Timer1.Enabled := true;

      LDatum.Caption := DateToStr(datum);
      LZeit.Caption  := TimeToStr(zeit);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

      Present:=(datum+zeit)-(date+time);

      DecodeDate(Present, Year, Month, Day);
      LJahre.Caption := IntToStr(Year);
      LMonate.Caption := IntToStr(Month);
      LTage.Caption := IntToStr(Day);


      DecodeTime(Present, Hour, Min, Sec, MSec);
      LStunden.Caption := IntToStr(Hour);
      LMinuten.Caption := IntToStr(Min);
      LSekunden.Caption := IntToStr(sec);

end;

end.

Eine weitere Frage beschäftigt mich auch noch: leider zeigt er z.B. nur die Sekunden der aktuellen Minute an usw. er sollte mir aber die Gesamtsekunden, Gesamtminuten usw. anzeigen, ist es mit DecodeDate und DecodeTime möglich oder wie müsste ich es dann berechnen?


Grüße

Maddin-G