Silvester Countdown

[tobster]

Tipp: Der Typ TDateTime ist am Ende nur ein Double und kann von einem anderen subtrahiert werden:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var syl: tdatetime;
begin
 syl := StrtoDateTime('1.1.2006 00:00:00');
 label1.Caption := inttostr(trunc(syl-now))+' Tag(e) '+Timetostr(frac(syl-now));
end;

[Vader]

hallo,

mir gefällt diese idee,
ich möchte diese procedure als "wie lange muß ich noch bis zur pension arbeiten " nutzen
bei dem code von tobster ist das datum und uhrzeit fix im programmcode,
ich würde aber ein editfeld brauchen wo man das jahr eingeben muß, weil das ist ja für jedermann
verschieden !

wie bekomme ich den edit1.text in diesen code ?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var syl: tdatetime; 
begin 
syl := StrtoDateTime('1.1.2006 00:00:00');
label1.Caption := inttostr(trunc(syl-now))+' Tag(e) '+Timetostr(frac(syl-now)); 
end;

mfg vader

[ManuMF]

Tipp: Nimm 2 TDateTimePicker (Tab Win32). Im OI stelle den einen Kind = dkDate, den anderen Kind = dkTime.

Dann

Delphi-Quellcode:

syl := Trunc(DateTimePicker1.Date) + Frac (DateTimePicker2.Time);
// DateTimePicker1 = dkDate, DateTimePicker2 = dkTime

Gruß,
ManuMF

[Vader]

hallo ManuMF,

super danke !

mfg vader

[Vader]

hallo ManuMF,

das jahr einstellen bei der komp."datetimepicker" dauert ziemlich lange wenn man zb: das jahr
2032 braucht, da muß man schon lange auf dem "weiterpfeil oben bleiben !
gibts auch eine andere möglichkeit die jahreszahl selbst einzugeben ?
mfg vader

[ichbins]

ja. einfach das Jahr markieren und dann auf der Pfeil-nach-oben-Taste bleiben.

[ManuMF]

Es gibt dann noch TMaskEdit. Da hat man aber keine Kalender-Auswahl.

Alternativ ein TEdit zum Eingeben:

Delphi-Quellcode:

procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  If not (key in [#48..#57,#8]) then
    key := #0;
end;

procedure TForm.ButtonClick(Sender: TObject);
begin
  DateTimePicker1.Date := StrToDate('01.01.' + Edit.Text);
end;

Gruß,
ManuMF

[Vader]

hallo,

danke für den tipp !

Ich wünsche allen ein gutes erfolgreiches neues Jahr 2006 !!

Ich hoffe dieses Forum bleibt uns noch lange erhalten.

mfg vader

[faux]

Und hats geklappt? ;)