全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2956
推到 Plurk!
推到 Facebook!

時間差與表示方式的問題

答題得分者是:ccchen
johnnychang
一般會員


發表:24
回覆:26
積分:16
註冊:2002-09-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-01-28 18:04:37 IP:211.74.xxx.xxx 未訂閱
參考文章==>http://delphi.ktop.com.tw/topic.php?topic_id=18677 問題:計算兩個時間的時間差, 並將之表示成hh:mm:ss的格式, 如: 22:20:30與20:15:28 之差為02:05:02 我採用Format來達成預計的格式,但結果為 2: 5: 2, 不是預期的02:05:02 請前輩高手們指導. 謝謝. 我的寫法如下: function TimeDiff(StartTime, EndTime:TDateTime):String; var t: TDateTime; hh, mm, ss, ms: Word; begin If StartTime > EndTime then t:=StartTime - EndTime Else t := EndTime - StartTime; DecodeTime(t, hh, mm, ss, ms); TimeDiff:=Format('%2s:%2s:%2s',[IntToStr(hh),IntToStr(mm),IntToStr(ss)]); end;
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-01-28 18:15:07 IP:203.217.xxx.xxx 未訂閱
兩個方法均可 function TimeDiff(StartTime, EndTime:TDateTime):String; var t: TDateTime; hh, mm, ss, ms: Word; begin If StartTime > EndTime then t:=StartTime - EndTime Else t := EndTime - StartTime; TimeDiff:=FormatDateTime('hh:nn:ss',t); //或 // DecodeTime(t, hh, mm, ss, ms); // TimeDiff:=Format('%2.2d:%2.2d:%2.2d',[hh,mm,ss]); end; 發表人 - ccchen 於 2003/01/28 18:17:04
johnnychang
一般會員


發表:24
回覆:26
積分:16
註冊:2002-09-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-01-28 18:27:47 IP:211.74.xxx.xxx 未訂閱
可以了, 謝謝ccchen.
系統時間:2024-03-29 9:28:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!