Time可不可以秀出倒數的時間? |
答題得分者是:christie
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
編輯記錄
老大仔 重新編輯於 2009-07-24 03:10:41, 註解 無‧
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
var
Form1: TForm1; target:TDateTime; implementation USES DateUtils; {$R *.dfm} function CountDownTime(): string; var diff, current: TDateTime;//target, difftime : string; begin //target := EncodeDateTime(2009, 7, 25, 00, 00, 0, 0); current := Now; diff := target - current; difftime:= IntToStr(DaysBetween(current, target)) '天' IntToStr(HourOf(diff)) '時' IntToStr(MinuteOf(diff)) '分' IntToStr(SecondOf(diff)) '秒'; result := difftime; end; procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled:=False end; procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=CountDownTime end; procedure TForm1.Button1Click(Sender: TObject); begin target:=INCMinute(Now,5); Timer1.Enabled:=True end; ===================引 用 lovemari 文 章=================== 小弟設定好Time 每五分鐘更新 請問能不能秀出來給使用者看到倒數計時 5:00 4:59 4:58....
------
What do we live for if not to make life less difficult for each other? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |