delphi中有没有这样的函数？急！！！(20分)

delphi中有没有这样的函数？给出当前时间和间隔天数，函数能够返回往前或往后一个时间
这个时间与给出的时间差为间隔天数例如：
2002-3-31=函数(2002-4-3,-3)
2002-4-3=函数（2002-4-1，2）
函数的名字？？？？？

function IncDay(const Date: TDateTime; NumberOfDays: Integer): TDateTime;
var
ts: TTimeStamp;
begin
ts := DateTimeToTimeStamp(Date);
Inc(ts.Date, NumberOfDays);
Result := TimeStampToDateTime(ts);
end;

接受答案了.