VB輔導:如何建立一個VB.NET日期/時間值

組合一個日期/時間值
    在VB.NET中可以用幾種方法組合桓鋈掌?時間值。列表A說明了幾種實現(xiàn)相同功能的方法。
    ◆第一個消息框?qū)@示：dtDate1: 1/2/2007 12:00:00 A.M.
    ◆第二個消息框?qū)@示：dtDate2: 1/2/2007 12:00:00 A.M.
    ◆第三個消息框?qū)@示：dtDate3: 2/3/2007 3:01:59 A.M.
    ◆第四個消息框?qū)@示：dtDate4: 2/3/2007 3:01:59 P.M.
    實例說明
    要設(shè)定變量dtDate1的值，我利用#符號設(shè)定日期為1/2/2007。由于沒有指定時間，系統(tǒng)會默認將時間分配為12:00:00 A.M.。（如果你指定#1/2/2007 3:59:00 PM#，則指定的時間為3:59:00 P.M。）
    要設(shè)定變量dtDate2的值，我利用Date對象，把它提交給和dtDate1相同的日期值。其結(jié)果相同；dtDate1顯示的日期和dtDate2的日期完全一樣。由于我省略了時間，系統(tǒng)默認設(shè)定時間為12:00:00 A.M.。
    要設(shè)定變量dtDate3的值，我提供包括時間在內(nèi)的完整信息。注意，我使用軍用時間，將其設(shè)為3:00:00 A.M。
    要設(shè)定變量dtDate4的值，我使用和dtDate3相同的日期和時間，但它的時間設(shè)為15:00:00，得到3:00:00 P.M。
    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