Question

delphi 时间函数如何增加指定天数，谢谢

Answer 1

DELPHI的时间是实数，可以直接加减，根本没有必要用函数处理。
DATE1:=DATA1+1;//加1天
DATE1:=DATA1+1/2;//加半天（12小时）
DATE1:=DATA1+1/24;//加1小时
DATE1:=DATA1+1/24/3600;//加1秒
减法也是可以直接相减。

Answer 2

Day 开头的函数

使用单元：
uses DateUtils

●function DateOf(const AValue: TDateTime): TDateTime;
描述：
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49

●function DateTimeToStr(DateTime: TDateTime): string;
描述：
DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个字符串，使用给定的全局变量ShortDateFormat 的格式，时间部分按照给定的全局变量 LongTimeFormat 的格式。其中 DateTime 为
零的部分将不会显示出来。
例如：
ShortDateFormat:='yyyy mm dd';
showmessage(DateTimetostr((now())));
你将得到：2003 03 19 10:50:49

●procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);
描述：

DateTimeToString 方法将TDateTime类型的参数DateTime 按照由参数Format提供的格式转化成字符串，并保存在Result中。对于Format的格式类型，请看 Date-Time format strings 的帮助。

例如：
DateTimeToString(result,'yyyy mm dd',now());
那么 result的结果为：2003 03 19 10:50:49

Answer 3

加单元DateUtils, 函数
IncDay(Date, 5), 即返回的是今天的日期加上五天，如果为-5则减五天，另有月、年、时、秒、分相加函数，IncMinute,IncYear,IncMonth,IncSecond

Answer 4

newdate=date+3 //增加3天