Dim ts_year As TimeSpan
Dim rndm As New Random(123456) 'für Zufallsspanne pro Tag
 
For i As Integer = 1 To 365
   'zufällige Zeitspanne 
   '(Obergrenze des Zufallswertes bei "Next": 24 bzw.60 - 1!!)
   Dim ts_day As New TimeSpan _
       (rndm.Next(0, 24), rndm.Next(0, 60), rndm.Next(0, 60))
 
   ts_year = ts_year.Add(ts_day)
Next i
 
Dim totalhours As Double = ts_year.TotalHours '-> 4516.53....
 
'Zerlegung der Gesamtzeit in Anteile:
Dim hourspart As Integer = _
CInt(Math.Floor(ts_year.Days) * 24 + ts_year.Hours) '4516 Stunden
Dim minutepart As Integer = ts_year.Minutes '-> 32 Minuten
Dim secondpart As Integer = ts_year.Seconds '-> 5 Sekunden
 
'Vorsicht bei der ToString-Methode!!!!
Dim totaltime As String = ts_year.ToString() -> "188.04:32:05"