Wieder ein Countdown Problem

[Sharky]

Hai Maddin-G,

mit einer Sache habe ich mich da auch einmal hereingelegt. Du hast zwar die Variablen

Delphi-Quellcode:

    
datum : TDate; 
zeit : TTime;

Dabei musst Du aber berücksichtigen das beide ein TDateTime sind. Sprich. Auch ein TTime kann einen Datumsanteil und ein TDate einen Zeitanteil haben.

Es wäre jetzt also möglich das beim:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
      datum := DateTimePicker1.Date;
      zeit  := DateTimePicker2.Time;
.

nicht genau gearbeitet wird. Du könntest es einmal so versuchen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  datum := Trunc(DateTimePicker1.Date); // Ohne Zeitanteil
  zeit  := Frac(DateTimePicker2.Time); // Ohne Datumsanteil
end;