時間的計算 |
|
答題得分者是：william
|
|
myfor
一般會員   發表：12 回覆：11 積分：4 註冊：2003-04-24 發送簡訊給我 |
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
A simple subtraction is good enough to calculate the difference between 2 datetime variables.
var
Date1,Date2,DateDiff: TDateTime;
begin
Date1 := EncodeDate(1991,1,1) EncodeTime(12,0,1,0);
Date2 := EncodeDate(1992,1,1) EncodeTime(13,0,1,0);
DateDiff := Date2-Date1;
ShowMessage(Format('%g yr %d hr',[trunc(DateDiff)/365,HourOf(DateDiff)]));
end;
|
|
myfor
一般會員 發表：12 回覆：11 積分：4 註冊：2003-04-24 發送簡訊給我 |
|
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
引言:如果是從電腦直接抓出來呢??? 就不像你所學的已知狀態了~~~ 要怎麼做呀~~~~~你的回答我以 會了一半了~~~~If you are using TDateTime, then it is the same. You only need to decode the result, e.g. 1) no. of days in trunc(Date2-Date1) 2) remaining time diff is frac(Date2-Date1), you can decode it using DecodeTime function |
發表時間：2003-06-03 14:17:00
IP:211.72.xxx.xxx 未訂閱
系統時間：2024-05-20 9:44:28
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |