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

日期加減問題

答題得分者是:herbert2
mobitaco
一般會員


發表:19
回覆:22
積分:8
註冊:2003-09-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-11-06 12:55:18 IP:211.75.xxx.xxx 未訂閱
請問各位先進 我要如何把現在的日期 7 天 或者 把現在日期減n天 謝謝
mobitaco
一般會員


發表:19
回覆:22
積分:8
註冊:2003-09-24

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-11-06 12:56:40 IP:211.75.xxx.xxx 未訂閱
抱歉 發表在錯的位置了
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-11-08 15:16:13 IP:218.32.xxx.xxx 未訂閱
mobitaco 你好:    1. 自己發表的文章, 自己應該有修改的權限.    2.TdateTime 直接加減就可以, TDataTime 是一個以天為單位的實數, 整數部 分是天數(自 1899/12/31 起算), 小數部分是時間.
var d:TDatatime;
begin
  d := now   7;
endl
chenliyan163
一般會員


發表:30
回覆:30
積分:12
註冊:2003-09-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-11-10 10:39:43 IP:61.175.xxx.xxx 未訂閱
TDateTime类型实际上就是一个double(双精度数). 整数部分是日期小数部分是时间。例如 var DateTime : TDateTime; Date : TDateTime; Time : TDateTime; begin DateTime := now; //获得日期 Date := Trunc( DateTime ); //获得时间 Time := Frac( DateTime ); end; 日期运算 如果你想增加几天,只需要加一个天数就可以了 var DateTime : TDateTime; begin DateTime := now; //七天以后 DateTime := DateTime 7; end; 想要知道两个日期的差距,只需要互相减一下就可以了。 var StartTime, StopTime, Difference : TDateTime; begin Difference := StopTime - StartTime; end;
jay08210821
一般會員


發表:3
回覆:5
積分:1
註冊:2012-04-25

發送簡訊給我
#5 引用回覆 回覆 發表時間:2013-03-05 14:48:15 IP:122.147.xxx.xxx 訂閱
抱歉 請問 看完以上我知道如果現在時間要加天數等於

dtstart.datetime := now 1;

那如果我要加現在的6個月 或一年 ...是該用那個函數呢?


jay08210821
一般會員


發表:3
回覆:5
積分:1
註冊:2012-04-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2013-03-05 14:50:49 IP:122.147.xxx.xxx 訂閱
起始時間不故定...所以不能直接加365/2 的天數

是否還有其它寫法?
herbert2
尊榮會員


發表:58
回覆:632
積分:878
註冊:2004-04-16

發送簡訊給我
#7 引用回覆 回覆 發表時間:2013-03-05 15:03:34 IP:202.39.xxx.xxx 訂閱
var
NewDateTime : TDateTime;
StartDateTime : TDateTime;
begin
StartDateTime := Now;
// 6個月, 若 > 月底日, 自動修正為月底日.
NewDateTime := IncMonth(StartDateTime,6);
end;

請善用 Delphi 的 Help 文件: TDateTime 與其 See Also 之 IncMonth, IsLeapYear 等.
編輯記錄
herbert2 重新編輯於 2013-03-05 15:06:37, 註解 無‧
herbert2 重新編輯於 2013-03-05 15:09:25, 註解 無‧
jay08210821
一般會員


發表:3
回覆:5
積分:1
註冊:2012-04-25

發送簡訊給我
#8 引用回覆 回覆 發表時間:2013-03-05 15:47:03 IP:122.147.xxx.xxx 訂閱
可以執行了~
真的太感謝您了~
謝謝您幫忙~
zhouying82
高階會員


發表:150
回覆:272
積分:189
註冊:2004-03-16

發送簡訊給我
#9 引用回覆 回覆 發表時間:2013-03-23 09:54:18 IP:223.166.xxx.xxx 訂閱
 use DateUtils
里面有很多关于日期,时间等加减的函数,可以慢慢看
------
断断续续的学了几年,还是一个初学者,永远支持Delphi !
系統時間:2018-01-19 21:25:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!