vba判定任意月份的天数

Sub Macro1() '判定天数

    Dim s$, a

    s = "2014/5"

    a = Split(s, "/")

    MsgBox "2014/5天数是：" & Day(DateSerial(a(0), a(1) + 1, 0))

End Sub

Sub Macro1()

    Dim s As String, d As Date

    s = "2014/5"

    d = CDate(s & "/28") + 4

    MsgBox s & "天数是：" & Day(d - Day(d))

End Sub

求最大天数

Day(DateSerial(2014, 5 + 1, 1) - 1)   '2014年5月最大天数