VB.NET經過長時間的發展，很多用戶都很了解VB.NET組合時間值了，這里我發表一下個人理解，和大家討論討論。

當你需要從一組特定的部分使VB.NET組合時間值時，你可以加載Date對象的結構器，并給它分配必要的日期/時間部分。本文說明如何執行這一功能。

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.

VB.NET組合時間值實例說明

◆要設定變量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 

【編輯推薦】

1. 淺析VB.NET使用MonthCalendar控件
2. VB.NET Split函數學習筆記
3. 簡單講述VB.NET Excel
4. 學習VB.NET Data Report控件
5. VB.NET水晶報表控件經驗總結