[求助]如何判断月末日,而弹出窗口?

macrohot

如果是每个月的最后一天,就弹出窗口提示,望指教.

taller

Sub EndMonth()
Dim iDate
iDate = CDate("2007-7-31")
iMon = Month(iDate)
If Month(iDate + 1) <> iMon Then MsgBox "It is the last day of " & iMon
End Sub

macrohot

多谢.可以实现.但我想的是能不能具有通用性.就是不管哪个月都可以实现,最好是在打开文件时就可以自动弹出.不需要人工执行.

我VBA太弱了,知道这个不是难题,还要麻烦大伙.先谢了.

[此贴子已经被作者于2007-7-31 15:25:04编辑过]

sunsoncheng

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

这就是本月的最后一天!

macrohot

Sub EndMonth()
Dim iDate
iDate = DateSerial(Year(Date), Month(Date) + 1, 0)
iMon = Month(iDate)
If Month(Date + 1) <> iMon Then MsgBox "It is the last day of " & iMon
End Sub

这样子?

taller

iDate = Date就可以判断今天了