как определить, что выбранная дата - последнее число месяца?

[starkee]

Можно ли используя свойства Calendarя определить, что выбранная дата - последняя в этом месяце? Вроде нету у него таких свойств...

Я сейчас делаю так:

Код: Выделить всё

mesyac = cldMy.Month
cldMy.NextDay
mesyac_temp = cldMy.Month

If mesyac <> mesyac_temp Then MsgBox "конец месяца"


есть ли другой... более умный способ?

[Pavel55]

А если так (без календаря, если понравится, то думаю подцепить дату с календаря сами сможете)

Код: Выделить всё

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

[starkee]

Код: Выделить всё

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 "Сегодня последний день месяца!"

[Calvin]

вот мой вариант:

Код: Выделить всё

If Month(CDate(mydate)) <> Month(CDate(mydate) + 1) Then
         MsgBox mydate & " - последний день месяца"
End If