如何樹立一個VB.NET日期/時間值

如何樹立一個VB.NET日期/時間值。本站提示廣大學習愛好者：（如何樹立一個VB.NET日期/時間值）文章只能為提供參考，不一定能成為您想要的結果。以下是如何樹立一個VB.NET日期/時間值正文

組合一個日期/時間值

在VB.NET中可以用幾種辦法組合一個日期/時間值。列表A闡明了幾種完成相反功用的辦法。

◆第一個音訊框將顯示：dtDate1: 1/2/2007 12:00:00 A.M.

◆第二個音訊框將顯示：dtDate2: 1/2/2007 12:00:00 A.M.

◆第三個音訊框將顯示：dtDate3: 2/3/2007 3:01:59 A.M.

◆第四個音訊框將顯示：dtDate4: 2/3/2007 3:01:59 P.M.

實例闡明

要設定變量dtDate1的值，我應用#符號設定日期為1/2/2007。由於沒有指定時間，零碎會默許將時間分配為12:00:00 A.M.。（假如你指定#1/2/2007 3:59:00 PM#，則指定的時間為3:59:00 P.M。）

要設定變量dtDate2的值，我應用Date對象，把它提交給和dtDate1相反的日期值。其後果相反；dtDate1顯示的日期和dtDate2的日期完全一樣。由於我省略了時間，零碎默許設定時間為12:00:00 A.M.。

要設定變量dtDate3的值，我提供包括時間在內的完好信息。留意，我運用軍用時間，將其設為3:00:00 A.M。

要設定變量dtDate4的值，我運用和dtDate3相反的日期和時間，但它的時間設為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