2020年8月4日 星期二

vb.net 時間軸計算 [Calculate Time] 

 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)