時間相減 |
|
|
|
clintonbush
一般會員   發表：4 回覆：3 積分：1 註冊：2007-01-08 發送簡訊給我 |
|
|
shinjie
資深會員  發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var time1,time2,time3:TDatetime; h,m,s,ms:word; begin time1:=StrToTime('22:00:00'); time2:=StrToTime('06:00:00'); time3:=time1-time2; decodetime(time3,h,m,s,ms); ShowMessage('相差秒：' IntToStr(h*3600 m*60 s)); ShowMessage('相差時間' Format('%.2d',[h]) ':' Format('%.2d',[m]) ':' Format('%.2d',[s])); ShowMessage('相差時間' FormatDateTime('HH:NN:SS', time1-time2)); end; 搜尋相關的Function 就可以了
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之；我幸。不得；我命。 |
|
clintonbush
一般會員 發表：4 回覆：3 積分：1 註冊：2007-01-08 發送簡訊給我 |
程式會執行22-6=16小時, 但我要8小時, 也就是晚上10點到隔天早上6點共8小時
===================引 用 文 章=================== procedure TForm1.Button1Click(Sender: TObject); var time1,time2,time3:TDatetime; h,m,s,ms:word; begin time1:=StrToTime('22:00:00'); time2:=StrToTime('06:00:00'); time3:=time1-time2; decodetime(time3,h,m,s,ms); ShowMessage('相差秒：' IntToStr(h*3600 m*60 s)); ShowMessage('相差時間' Format('%.2d',[h]) ':' Format('%.2d',[m]) ':' Format('%.2d',[s])); ShowMessage('相差時間' FormatDateTime('HH:NN:SS', time1-time2)); end; 搜尋相關的Function 就可以了 |
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
變通一下就可以啦！
procedure TForm1.Button1Click(Sender: TObject); var time1,time2,time3:TDatetime; h,m,s,ms:word; begin time1:=StrToTime('22:00:00'); time2:=StrToTime('06:00:00'); time3:=time2-time1 1; decodetime(time3,h,m,s,ms); ShowMessage('相差秒' IntToStr(h*3600 m*60 s)); ShowMessage('相差時間' Format('%.2d',[h]) ':' Format('%.2d',[m]) ':' Format('%.2d',[s])); ShowMessage('相差時間' FormatDateTime('HH:NN:SS', time2-time1 1)); end; Fishman
------
Fishman |
發表時間：2007-01-11 11:28:27
IP:211.74.xxx.xxx 訂閱
系統時間：2024-05-19 18:03:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |