Delphi倒數計時 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
感謝Mickey大大不厭其煩的指導,分享可以倒數時間的函數:
function CountDownTime(): string; var target, diff, current: TDateTime; difftime : string; begin target := EncodeDateTime(2007, 12, 25, 00, 00, 0, 0); current := Now; diff := depart - current; difftime := IntToStr(DaysBetween(current, depart)) '天' IntToStr(HourOf(diff)) '時' IntToStr(MinuteOf(diff)) '分' IntToStr(SecondOf(diff)) '秒'; result := difftime; end;
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |