郁悶，vs 2005

因為系統自動帶出的時間是有上午下午的

2006-07-04 上午 11:1:57

還用，format 方法，也一樣是這樣的格式

，所以做最苯的方法：

 If Hour(Date.Now) >= Hour(#1:00:00 PM#) Then

            Dim sdate As String = (CInt(Date.Now.Hour.ToString) + 12).ToString

            sdate = sdate + ":" + Date.Now.Minute.ToString + ":" + Date.Now.Second.ToString

            Me.Label1.Text = Date.Now.ToShortDateString + " " + sdate

        Else

            Me.Label1.Text = Date.Now.ToShortDateString + " " + Date.Now.Hour.ToString + ":" + Date.Now.Minute.ToString + ":" + Date.Now.Second.ToString

        End If

這樣顯示出來就是

2006-07-04 11:1:57