精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>时间和日期>>如何在一个日期前加上5年,或者5个月?

主题:如何在一个日期前加上5年,或者5个月?
发信人: showskyws(示天)
整理人: teleme(2001-04-25 01:04:17), 站内信件
【 在 catss 的大作中提到:】
:如何在一个日期前加上5年,或者5个月,怎样加?
:谢谢

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

//增加天数后的日期,其他的函数道理类似


----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
欢迎光临我的个人主页:示天工作室 


网易北京社区 DELPHI版 版副发贴印 
               

[关闭][返回]