時間相減 |
|
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |