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月最大天数