delphi 计算日期

[Liyp92]

比如今天是2015-12-7，我输入1.5，计算出2015年12月7号1年半后日期是多少？
1.5是动态输入的

[Liyp92]

人呢

[linweihua77]

兄弟，这年头还学Delphi,You Out 了! incyear() incmonth() incday()

[Liyp92]

自己解决

Showmessage(DateTimeToStr(IncMonth(StrToDateTime('2015-12-7'),Turnc(1.5*12))));

[Liyp92]

引用 2 楼 linweihua77 的回复:

兄弟，这年头还学Delphi,You Out 了! incyear() incmonth() incday()

额，用了几年了，太久没弄忘了