請問各位先進 我要如何把現在的日期 7 天 或者 把現在日期減n天 謝謝

抱歉 發表在錯的位置了

mobitaco 你好:    1. 自己發表的文章, 自己應該有修改的權限.    2.TdateTime 直接加減就可以, TDataTime 是一個以天為單位的實數, 整數部 分是天數(自 1899/12/31 起算), 小數部分是時間.

var d:TDatatime;
begin
  d := now   7;
endl

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;

抱歉 請問 看完以上我知道如果現在時間要加天數等於

dtstart.datetime := now 1;

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

起始時間不故定...所以不能直接加365/2 的天數

是否還有其它寫法?

var
NewDateTime : TDateTime;
StartDateTime : TDateTime;
begin
StartDateTime := Now;
// 6個月, 若 > 月底日, 自動修正為月底日.
NewDateTime := IncMonth(StartDateTime,6);
end;

請善用 Delphi 的 Help 文件: TDateTime 與其 See Also 之 IncMonth, IsLeapYear 等.

編輯記錄

可以執行了~
真的太感謝您了~
謝謝您幫忙~

 use DateUtils
里面有很多关于日期，时间等加减的函数，可以慢慢看

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !