怎么根据一个日期求它上个月的最后一天(50分)马上给

Question

如现在的日期是2004-10-19
怎么得到2004-09-30

Answer 1

Dim l_date As Date
Dim l_day As Integer
Dim l_maxday As Date
l_date = "2004-10-19"
l_day = Day(l_date)
l_maxday = DateAdd("d", -1 * l_day, l_date)
Debug.Print l_maxday

Answer 2

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

Answer 3

Dim MyDay As Date
Dim NowDay As Date
MyDay = "2004-10-19"
MyDay = Format(MyDay, "YYYY-mm-01")
NowDay = DateAdd("d", -1, MyDay)
MsgBox NowDay

Answer 4

MsgBox DateAdd("d", -1 * Day(Date), Date - 1)

Answer 5

上面的写错了
MsgBox DateAdd("d", -1 * Day(Date), Date )