Dim ts_year As New TimeSpan(0, 0, 0)    'für Jahressumme der Stunden 
Dim ts_8_hours As New TimeSpan(8, 0, 0) '8 Stunden pro Tag für Summation
 
For i As Integer = 1 To 365
   ts_year = ts_year.Add(ts_8_hours) 'Summation über Tage im Jahr
Next i
 
Dim totalhours As Double = ts_year.TotalHours '--> 2920 (365*8)