КАК ВЫЧИСЛИТЬ НЕСКОЛЬКО ДАННЫХ УЧЕБНИКОВ

Question

У меня есть 8 текстовых полей, затемненных в качестве даты и времени и времени ожидания с понедельника по четверг, теперь у меня есть еще один набор из 4 текстовых полей, когда я ввожу время и время ожидания, в 4 текстовых полях отображается общее количество часов, представленных за каждый день, включая последние (мин)теперь мне нужно добавить все входные данные в 4 текстовых поля, чтобы оно отображалось в другом текстовом поле, помеченном как общее количество часов (включая опоздание), и в другом, который помечен как общее позднее (минуты позже в день).Я попытался затемнить все 4 текстовых поля как дату и время.

'this is the code in the button labeled as compute hours
'Monday
    Dim t1 As DateTime = DateTime.Parse(TextBox1.Text)
    Dim t2 As DateTime = DateTime.Parse(TextBox2.Text)
    Dim ts As TimeSpan = t2.Subtract(t1)
'TEXTBOX10.TEXT IS THE TOTAL HOURS RENDERED IN MONDAY
    TextBox10.Text = ts.Hours.ToString("0") & ":" & ts.Minutes.ToString("00")

    ' Tuesday
    Dim t3 As DateTime = DateTime.Parse(TextBox5.Text)
    Dim t4 As DateTime = DateTime.Parse(TextBox4.Text)
    Dim ts1 As TimeSpan = t4.Subtract(t3)
'TEXTBOX9.TEXT IS THE TOTAL HOURS RENDERED IN TUESDAY
    TextBox9.Text = ts1.Hours.ToString("0") & ":" & ts1.Minutes.ToString("00")

    ' Wednesday
    Dim t5 As DateTime = DateTime.Parse(TextBox7.Text)
    Dim t6 As DateTime = DateTime.Parse(TextBox6.Text)
    Dim ts2 As TimeSpan = t6.Subtract(t5)
'TEXTBOX8.TEXT IS THE TOTAL HOURS RENDERED IN WEDNESDAY
    TextBox8.Text = ts2.Hours.ToString("0") & ":" & ts2.Minutes.ToString("00")

    ' Thursday
    Dim t7 As DateTime = DateTime.Parse(TextBox12.Text)
    Dim t8 As DateTime = DateTime.Parse(TextBox13.Text)
'TEXTBOX3.TEXT IS THE TOTAL HOURS RENDERED IN THURSDAY
    Dim ts3 As TimeSpan = t7.Subtract(t8)
    TextBox3.Text = ts3.Hours.ToString("0") & ":" & ts3.Minutes.ToString("00")

Answer 1

См. Мой код (только для понедельника и вторника)

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim t1 As DateTime = DateTime.Parse(TextBox1.Text)
    Dim t2 As DateTime = DateTime.Parse(TextBox2.Text)
    Dim ts As TimeSpan = t2.Subtract(t1)
    'TEXTBOX10.TEXT IS THE TOTAL HOURS RENDERED IN MONDAY
    TextBox10.Text = ts.Hours.ToString("0") & ":" & ts.Minutes.ToString("00")

    ' Tuesday
    Dim t3 As DateTime = DateTime.Parse(TextBox5.Text)
    Dim t4 As DateTime = DateTime.Parse(TextBox4.Text)
    Dim ts1 As TimeSpan = t4.Subtract(t3)
    'TEXTBOX9.TEXT IS THE TOTAL HOURS RENDERED IN TUESDAY
    TextBox9.Text = ts1.Hours.ToString("0") & ":" & ts1.Minutes.ToString("00")

    'MAGIC HERE :D
    TextBox13.Text = (ts + ts1).ToString()
End Sub
End Class

PS: просто считать ts, ts1, ts2, ts3 - приведениев строку и показать в вашем общем текстовом поле:)