如何获得当月最后一天的日期？有没有函数？

Question

如何获得当月最后一天的日期？有没有函数？

Answer 1

function Getenddate(Year as long,Month as long) as date
         dim RevDate as date
         revdate=dateadd("d",-1,(dateadd("m",1,cdate(year & "\" & month & "\1")))
         getenddate=revdate 
end function

Answer 2

本月最后一天
DateSerial(Year(Now), Month(Now) + 1, 1) - 1

Answer 3

首先为下个月的第一天生成一个顺序数值，然后再减去一天Private Sub Command1_Click()
Dim dtl As Date
dtl = DateSerial(Year(Now), Month(Now) + 1, 1) - 1
MsgBox dtl
End Sub 

Answer 4

DateSerial(Year(date), Month(date) + 1, 0)