如何判断一个月有多少天？

Question

没有好办法，1，3，5，7，8，10，12有31天，其他是30天，2月特殊，闰年29天，平年28天，年份能整除4为闰年（100的整数倍时还要能整除400，如1000，2000，2100年，其中2100不是闰年），其实你肯定知道

Answer 1

Public Function GetMonthDays(ByVal dDate As String) As Integer
    Dim dNext As Date
    Dim dTemp As Date
    Dim dCur As Date
    
    dTemp = DateAdd("m", 1, dDate)
    dNext = DateSerial(Year(dTemp), Month(dTemp), 1)
    dCur = DateSerial(Year(dDate), Month(dDate), 1)
    GetMonthDays = DateDiff("d", dCur, dNext)
End Function