请问在vb中怎么调出现在是今年的第几天，就像php中的date("z")这个函数，还有是否有函数可以察出本月的天数是30还是31等

Question

声明一个date类型的变量
dim a as date
a=day

Answer 1

用isdate(date), 判断date是否合法的日期

Answer 2

下面这段代码可以判断出指定年月的天数包括2月，应该是最简单的一种方法了    Dim hYear As Integer, hMonth As Integer
    hYear = 2002
    hMonth = 2
    Select Case Day(DateSerial(hYear, hMonth, 31))
        Case 1
            MsgBox "本月30天"
        Case 31
            MsgBox "本月31天"
        Case Else
            MsgBox "现在是2月" & vbCr & "这个2月有:" & IIf(Day(DateSerial(hYear, 2, 29)) = 1, 28, 29) & "天"
    End Select