Я сейчас делаю так:
- Код: Выделить всё
mesyac = cldMy.Month
cldMy.NextDay
mesyac_temp = cldMy.Month
If mesyac <> mesyac_temp Then MsgBox "конец месяца"
есть ли другой... более умный способ?
mesyac = cldMy.Month
cldMy.NextDay
mesyac_temp = cldMy.Month
If mesyac <> mesyac_temp Then MsgBox "конец месяца"
Sub Макрос1()
Dim iDate As Date
iDate = #1/31/2008# '31 Января 2008 г.
If Month(DateAdd("d", 1, iDate)) <> Month(iDate) Then
MsgBox "Конец месяца!"
Else
MsgBox "Ещё не конец!"
End If
End Sub
KL писал(а):
- Код: Выделить всё
Sub test()
MsgBox DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub
dim A1 as Date, A2 as Date
A1 = Date
A2 = DateSerial(Year(Date), Month(Date) + 1, 0)
if a1 = a2 then msgbox "Сегодня последний день месяца!"
If Month(CDate(mydate)) <> Month(CDate(mydate) + 1) Then
MsgBox mydate & " - последний день месяца"
End If
Сейчас этот форум просматривают: Mail.ru [бот] и гости: 78