如何处理日期（例如，增加年、月等）

ntcp

增加月的函数在 SysUtils 下，其他的都在 DataUtils 下使用方法，例如：

1、增加年
函数声明：function IncYear( AValue: Double;  ANumberOfYears: Integer ): Double;
引用单元：Business.System. DataUtils
参数说明：
返回值：AValue的年部分增加ANumberOfYears后的值，得到的时间类型的值。
AValue：时间类型的值。

2、增加月：
函数声明：function IncMonth(AValue: Double;  ANumberOfMonths: Integer ): Double;
引用单元：Business.System. SysUtils
参数说明：
返回值：AValue的日部分增加ANumberOfMonths后的值，得到的时间类型的值。
AValue：时间类型的值。

3、增加日
函数声明：function IncDay( AValue: Double;  ANumberOfDays: Integer ): Double;
引用单元：Business.System. DataUtils
参数说明：
返回值：AValue的日部分增加ANumberOfDays后的值，得到的时间类型的值。
AValue：时间类型的值。

atiger

通过代码实现增加月，详细代码如下：

procedure TMainForm.ButtonTimeClick(Sender: TObject);
var
  y, m, d: word;
  dt : TDateTime;
begin
  dt := DateTimePicker.Date;
  SysUtils.DecodeDate(dt, y, m, d);
  m := m + SysUtils.StrToInt(EditTime.Text);
  DateTimePicker1.Date := SysUtils.EncodeDate(y, m, d);
end;

1、函数声明：procedure DecodeDate(Date: Double; var Year:Word, var Month:Word, var Day: Word);
引用单元：Business.System. SysUtils
参数说明：
返回值（Year, Month, Day）：获取输入参数的年、月、日。
Date：这时个输入参数，为已知的时间类型。

2、函数声明：function EncodeDate(Year, Month, Day: Word): Double;
引用单元：Business.System. SysUtils
参数说明：
Year, Month, Day：输入参数。
返回值：输入参数合成的时间类型值。