Countdown

[Nothine]

Zitat von Jelly:

Und wie würdest du da rangehen, wenn du statt einer Sekunde, z.B. 2 Stunden, 37 Minuten, 13 Sekunden abziehen willst... Da ist mir EncodeDate doch übersichtlicher

da is meine methode aber auch übersichtlicher

Delphi-Quellcode:

begin
  zeit := zeit - 1/24/60/60;
end;

da kann man ja auch gleich

Delphi-Quellcode:

begin
  Zeit := Zeit - 1.15740740740741E-5;
end;

schreiben

[Nikolas]

Weisst du aber nachher noch, was diese Zahl bedeutet? Bei dem 1/24/60/60 fällst einem doch auf, das dass die Sekunden im Tag sind.

[Nothine]

gegenfrage: wieviele zahlen in dieser notation könntest du mir auswendig aufsagen? also ich wüsste im moment nur diese eine

//Edit: außerdem hatte ich ja auch ne übersichtliche methode angeboten
  TimeWert := TimeWert - StrToTime('00:00:01');

[jfheins]

Ich habs jetzt so gemacht:

Delphi-Quellcode:

var Countdown: TTime;

 Countdown := StrtoTime ('00:'+min+':'+sec);
 Form1.Timer1.Enabled := TRUE;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Countdown := Countdown - StrtoTime ('00:00:01');
 Label3.Caption := FormatDateTime ('n:ss', Countdown);
 if Label3.Caption = '0:00' then Timer1.Enabled := FALSE;
end;