28-07-18, 10:45 AM
جرب هذا التعديل
كود :
Dim MyTimeSpan As New TimeSpan
For Each S As String In ListBox1.Items
MyTimeSpan = MyTimeSpan.Add(New TimeSpan(Int(S.Split(":")(0)), Int(S.Split(":")(1)), 0))
Next
TextBox1.Text = MyTimeSpan.Days & "/" & MyTimeSpan.Hours & ":" & MyTimeSpan.Minutes