怎么计算给出日期所在月份有几天?

Question

如题

Answer 1

Dim year
year = CInt(Combo1.Text)
If year Mod 100 = 0 Then
If year Mod 4 = 0 Then
Label1.Caption = "闰年"
Else
Label1.Caption = "非闰年"
End If
Else
If year Mod 4 = 0 Then
Label1.Caption = "闰年"
Else
Label1.Caption = "非闰年"
End If
End If
判断完这个之后
用个switch　月份除了２月，其他月都是固定的

Answer 2

扩展一下，可以兼容 Date 在下旬的情况：
dateadd("m",1,Format(date,"yyyy-mm") & "-01")-Cdate(Format(date,"yyyy-mm") & "-01")

Answer 3

day(dateserial(year(date),month(date)+1,0))