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

zhuyiwen

求某月的最后一天，我觉得这样更完美。

这是我的原创代码。

1. Public Function MonLastDay(dFirst As Date) As Date
   
2.     Dim dm As Date
   
3.     Dim m As Integer
   
4.    
   
5.     dm = dFirst
   
6.     m = Month(dm)
   
7.     Do While Month(dm) = m
   
8.        dm = dm + 1
   
9.     Loop
   
10.     MonLastDay = dm - 1
    
11. End Function

复制代码

AlexLiu

1. Public Function MonLastDay1(dFirst As Date) As Date
   
2.     MonLastDay1 = DateSerial(Year(dFirst), Month(dFirst) + 1, 1) - 1
   
3. End Function

复制代码

李啸林

1. Public Function MonLastDay1(dFirst As Date) As Date
   
2.     MonLastDay1 = DateAdd("d", -1, CDate(DatePart("yyyy", DateAdd("m", 1, dFirst)) & "-" & DatePart("m", DateAdd("m", 1, dFirst))))
   
3. End Function

复制代码

WTM1

很好！
谢谢！

李啸林

我这样写，你们觉得如何？

Public Function MonLastDay1(dFirst As Date) As Date

MonLastDay1 = DateAdd("d", -1, CDate(DatePart("yyyy", DateAdd("m", 1, dFirst)) & "-" & DatePart("m", DateAdd("m", 1, dFirst))))

End Function

zhuyiwen

非常好！

用这个
CDate(DatePart("yyyy", DateAdd("m", 1, dFirst)) & "-" & DatePart("m", DateAdd("m", 1, dFirst)))
获取下一月的第一天！！！高招！[em26]

yahai

好啊

AlexLiu

Public Function MonLastDay1(dFirst As Date) As Date

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

End Function

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

Trynew

用DateSerial容易处理12月，是比CDATE好。Good!

HG

http://www.office-cn.net/bbs/dispbbs.asp?boardID=5&RootID=19834&ID=19834
特別處理過的TSQL寫的同功能函數。

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]

AlexLiu

DateSerial(2002,15,1) = 2002-3-1

你写错了，应该是：DateSerial(2002,15,1) = 2003-3-1