如何建立一个VB.NET日期/时间值

    Private Sub DateTimeCombination()


        Dim dtDate1 As Date = #1/2/2007#
        Dim dtDate2 As New Date(2007, 1, 2)
        Dim dtDate3 As New Date(2007, 2, 3, 3, 1, 59)
        Dim dtDate4 As New Date(2007, 2, 3, 15, 1, 59)


        MsgBox("dtDate1: " & dtDate1.ToString())
        MsgBox("dtDate2: " & dtDate2.ToString())
        MsgBox("dtDate3: " & dtDate3.ToString())
        MsgBox("dtDate4: " & dtDate4.ToString())


    End Sub