发信人: 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版 版副发贴印 |
|