dotNETportal.cz

Dim t1 As TimeSpan = New TimeSpan(12, 30, 0)
Dim t2 As TimeSpan = New TimeSpan(25, 30, 0)
Dim t3 As TimeSpan = New TimeSpan(10, 50, 0)

Dim t As TimeSpan = t1.Add(t2).Add(t3)
Console.WriteLine(String.Format("{0}:{1}", CType(t.TotalHours,Integer), t.Minutes))

Na to si musíte napsat vlastní parsovací funkci. Pokud bude čas zadáván např. (natvrdo) ve formátu HH:MM mohlo by to být nějak takto:

Private Shared Function ParseTime(value As String) As TimeSpan
	'value musí být ve tvaru HH:MM
	If String.IsNullOrEmpty(value) Then
		Throw New FormatException("Invalid value.")
	End If

	value = value.Trim()

	Dim parts As String() = input.Split(":")
	If parts.Length <> 2 Then
		Throw New FormatException("Invalid value.")
	End If

	Dim hours As Integer
	Dim minutes As Integer
	If Not Int32.TryParse(parts(0), hours) OrElse Not Int32.TryParse(parts(1), minutes) Then
		Throw New FormatException("Invalid value.")
	End If

	Return New TimeSpan(hours, minutes, 0)
End Function

Příště prosím uveďte přesněji, že vám nešlo o vlastní sčítání časů (hodnot typu TimeSpan), ale o pársování zadávaného času (jako string) v nějakém formátu na typ TimeSpan.