求n天后的日期问题(30分)

happyloner · 2002-12-15

各位大虾：请问有没有函数可以实现如下功能：给定一个日期，得出n天后的日期，
我已经写了一个函数，但很有局限性，不能跨几个月，不知是否有直接的函数可以调用，
或者有写好的函数，望各位大虾不吝赐教。

del520 · 2002-12-15

直接用 date-n 啊！

如：
Var
date1:TdateTime;
begin
date1:-Date-10;
end;

LiChaoHui · 2002-12-15

参见D6的DateUtils.pas

jsxjd · 2002-12-15

Var
date1:TdateTime;
begin
date1:=Date1+10;
//
end;

stuwe · 2002-12-15

function GetDate(Date1:TDate;n:integer):TDate;
begin
Result:=Date1+n;
end;

leejames · 2002-12-15

Unit DateUtils

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

相关函数Delphi都有，IncMonth、IncHour。。。。

happyloner · 2002-12-15

谢谢各位，看来小弟积累不够啊！