各位好！谁有代码：关于“某年某月某日”加上“三年”后的日期是多少？

Question

各位好！谁有代码：关于“某年某月某日”加上“三年”后的日期是多少？
        比如：1999年7月9日加三年后为2002年7月8日；
              1996年3月1日加三年后为1999年2月28日
              1997年3月1日加三年后为2000年2月29日（润年）

Answer 1

你的3年时什么概念？
3*365 天？这不能算三年吧？dtNow: TDateTime;dtNow:= now() + 3* 365;

Answer 2

楼上可能没考虑还可能有366天
不妨先decodedate(date,yy,mm,dd)
然后yy:=yy+3;
最后转换成日期

Answer 3

才看明白你的题目。
dtNow:= IncYear(now())-1;

Answer 4

才看明白你的题目。
dtNow:= IncYear(now(), 3)-1;

Answer 5

谢谢 ，楼上的同志们！
特别感谢pazee(耙子) 兄弟！