绝对必要的日期函数

Question

以下函数如何写:
日期1(yyyy-mm-dd)+月(个数)=日期2(yyyy-mm-dd)oracle 里有add_months函数,和它的实现功能一样

Answer 1

首部 function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime; $[SysUtils.pas
功能 返回增加月份给日期
说明 NumberOfMonths为负数时则减月份
参考 procedure SysUtils.DecodeDate;procedure SysUtils.IncAMonth;function SysUtils.EncodeDate;procedure SysUtils.ReplaceTime
例子 DateTimePicker1.Date := IncMonth(Date, SpinEdit1.Value);

Answer 2

使用encodedate(),decodedate()两个函数，
首先用decodedate()将日期1分解成年，月，日
将月加上一个值后，
用encodedate()将年，月，日再组合成日期2