发信人: gear1023()
整理人: teleme(2001-12-14 13:09:10), 站内信件
|
在DELPHI的编程过程中，总会遇到要求下个月(或上个月)的今天，而总是有人要自己写个函数来实现这个功能，先是DECODE后又是判断再加1再ENCODE。
Dephi 本身已经提供了这个功能：
IncMonth(Date, i)
如：今天是2001/12/09那么：
IncMonth(date, 1) 的值就是 2002/01/09
IncMonth(date, 2) 的值就是 2002/02/09
IncMonth(date, -1) 的值就是 2001/11/09
如：今天是2001/12/31 那么：
IncMonth(date, 1) 的值就是 2002/01/31
IncMonth(date, 2) 的值就是 2002/02/28
IncMonth(date, -1) 的值就是 2001/11/30
|
|