日期+時間 處理方式

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Date = Now.Date
        Dim b As Date = a + Now.TimeOfDay
        MessageBox.Show(b)
    End Sub