Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Multiples Countdownsystem mit nur einem Timer
23. Apr 2012, 17:17
Delphi-Quellcode:
uses dateUtils;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Caption := TimeToStr(Now) +' - ' + TimeToStr(Now + 1/24/60/60 * 60 ) + ' - ' + TimeToStr(IncSecond(now,60) )
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|