Question

在给我不好的反馈之前，请先帮助我。

我需要在文本框中添加两次。但是，当我添加时，只有分钟在添加，而不是小时。

Dim dt As DateTime = TxtDTEAP.Text
Dim wt As DateTime = TxtWTEAP.Text
Dim totalspan As New TimeSpan
Dim result As New DateTime

result = dt.AddMinutes(wt.Minute)

Me.TxtTRTEAP.Text = result

例如，txtWTEAP.Text = 1:30和txtDTEAP.Text = 2:50的结果应为4:20，但此代码上显示的结果仅为1:20。

非常感谢您！

Answer 1

将TextBoxes中的字符串拆分为一个数组。第一个元素将包含小时，第二个元素将包含分钟。拆分字符后的c告诉编译器这是一个字符而不是字符串。
使用TimeSpan结构的构造函数创建TimeSpans。构造函数使用3个参数，小时数作为整数，分钟数作为整数，秒数作为整数。
最后，我们可以进行添加。
然后使用.ToString和格式字符串显示结果。 \是转义字符，因此它不认为：是其他东西。

 Private Sub GetTotalTime()
            Dim parseTime1() As String = TxtDTEAP.Text.Split(":"c)
            Dim parseTime2() As String = TxtWTEAP.Text.Split(":"c)
            Dim dt As TimeSpan = New TimeSpan(CInt(parseTime1(0)), CInt(parseTime1(1)), 0)
            Dim wt As TimeSpan = New TimeSpan(CInt(parseTime2(0)), CInt(parseTime2(1)), 0)
            Dim result As TimeSpan = dt + wt
            TxtTRTEAP.Text = result.ToString("h\:mm")
    End Sub

从两个文本框中添加vb.net的时间

1 个答案: