IncYear:将一个TDateTime变量加减一定数量的年数


本文整理自网络,侵删。

 声明:function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;

描述:IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。

增减的数量是可选的,默认为1。

增加年份后,如果日期数对于当前年月而言太大的话,它会自动缩减为当前年月的最大日期值。

备注:没有DecYear这个函数,相反,在IncYear中使用一个负数增加量。

var
myDate : TDateTime;
begin
// 初始化变量为闰年的一个特殊日子
myDate := EncodeDate(2000, 02, 29);
ShowMessage('myDate = '+DateToStr(myDate));

//加上2年
myDate := IncYear(myDate, 2);
ShowMessage('myDate + 2 years = '+DateToStr(myDate));

// 减去2年
myDate := IncYear(myDate, -2);
ShowMessage('myDate - 2 years = '+DateToStr(myDate));
end;

程序运行结果:

myDate = 2000-2-29

myDate + 2 years = 2002-2-28

myDate - 2 years = 2000-2-28

相关阅读 >>

Delphi一个基于wininet的http操作小函数

Delphi 2009 之 tstringbuilder 类[6]: equals

dll与exe之间的恩爱情仇

Delphi android程序启动过程

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 方法的类型

Delphi里实现彩色图片转为黑白图像的功能

Delphi 判断字符是否是汉字

Delphi实现电脑端微信图片文件解密

Delphi 木马配置器通用写法(末尾追加数据的方法)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...