VB里有没有叛断当天是否为当日的最后到天的涵数？

Question

应该没有,可以自己简单的判断一下.
if month(date+1) >month(now) then msgbox "到了" & month(now) &"最后一天了."

Answer 1

Public Function MonthFirstDay(pDate As Date) As Date
    '获得一个月的第一天
    'pDate为指定的某一月
    
    MonthFirstDay = CDate(Year(pDate) & "-" & Month(pDate) & "-01")
    
End FunctionPublic Function MonthLastDay(pDate As Date) As Date
    '获得一个月的最末一天
    'pDate 为指定的某一月
    
    Dim NextMonthFirstDay As Date
    
    NextMonthFirstDay = DateAdd("m", 1, MonthFirstDay(pDate))
    
    MonthLastDay = DateAdd("d", -1, NextMonthFirstDay)End Function

Answer 2

Public Function MonthFirstDay(pDate As Date) As Date
    '获得一个月的第一天
    'pDate为指定的某一月
    
    MonthFirstDay = CDate(Year(pDate) & "-" & Month(pDate) & "-01")
    
End FunctionPublic Function MonthLastDay(pDate As Date) As Date
    '获得一个月的最末一天
    'pDate 为指定的某一月
    
    Dim NextMonthFirstDay As Date
    
    NextMonthFirstDay = DateAdd("m", 1, MonthFirstDay(pDate))
    
    MonthLastDay = DateAdd("d", -1, NextMonthFirstDay)End Function