2020年7月15日 星期三

(2020-07-16) [TwMS 226.3] 亞台龍欸 每日DLL檔 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
        Try
            Dim tsnBegin As TimeSpan = TimeSpan.Parse(TextBox1.Text)
            Dim tsnFinish As TimeSpan = TimeSpan.Parse(TextBox2.Text)
            If tsnFinish < tsnBegin Then
                MsgBox("開始時間不能比結束時間還大", 16, "錯誤")
                Exit Sub
            End If
            Dim tsnDuration As TimeSpan = tsnFinish - tsnBegin

        Catch ex As Exception
            MsgBox("時間格式錯誤", 16, "錯誤")
        End Try
於
標籤：

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)