[分享]求某月的最后一天的函数

zyz

以下是引用AlexLiu在2002-11-6 15:35:03的发言：
Public Function MonLastDay1(dFirst As Date) As Date

MonLastDay1 = DateSerial(Year(dFirst), Month(dFirst) + 1, 1) - 1 

End Function

效果类似，不过更简单一些，同样适用于任何一个月。

原来如此:
DateSerial(2002,15,1) = 2002-3-1[em26]

zyz

对不起,一时兴奋,写错了. [em26]