Silvester Countdown

[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