vb中如何计算一月有多少天?

Question

Private Sub Command1_Click()
    MsgBox GetDayNum(Text1.Text)
End SubPrivate Function GetDayNum(sDate As Variant)
    Select Case Val(DatePart("M", sDate))
        Case 1, 3, 5, 7, 8, 10, 12
            GetDayNum = 31
        Case 4, 6, 9, 11
            GetDayNum = 30
        Case 2
            If IsDate(DatePart("yyyy", sDate) & "-2-29") Then
                GetDayNum = 29
            Else
                GetDayNum = 28
            End If
    End Select
End Function

Answer 1

用VB提供的函数DATEDIFF就可以了！
？ Datediff("d","2002-07-01","2002-08-01")

Answer 2

用DateDiff函数，方法：DateDiff("d", date1, date2)date1为要计算天数的月的1号，如#2002-2-1#
date2为下个月的1号，如#2002-3-1#执行函数后，值为28简单实用灵活

Answer 3

这样可以：
Msgbox CDate("2002-7-1") - CDate("2002-6-1")