Public Function AddTimeSpan(ByVal dt As DateTime, ByVal ts As TimeSpan) As _
      DateTime
 
        Dim ServiceStart As DateTime = CDate("06:15")
        Dim ServiceEnd As DateTime = CDate("19:00")
 
        'Wie viel Zeit bleibt heute noch?
        Dim serviceendtoday As DateTime = New DateTime(dt.Year, dt.Month, _
          dt.Day, _
        ServiceEnd.Hour, ServiceEnd.Minute, ServiceEnd.Second)
        Dim timespantoend As TimeSpan = serviceendtoday.Subtract(dt)
 
        If timespantoend.Hours < 0 Then
            'Startzeit liegt nicht im Serviceintervall !!!
            Throw New ArgumentException
        End If
        If timespantoend.Ticks >= ts.Ticks Then
            'Zielzeit liegt noch im heutigen Serviceintervall
            Return dt.Add(ts)
        End If
 
        'Tägliches Serviceintervall
        Dim servicetimespandaily As TimeSpan = ServiceEnd.Subtract(ServiceStart)
 
        'Restzeit heutiges SIntervall abziehen
        ts = ts.Subtract(timespantoend)
 
        'Datum hochsetzen und Zeit-Intervall sukzessive verkleinern
        While ts.Ticks > servicetimespandaily.Ticks
            ts = ts.Subtract(servicetimespandaily)
            dt = dt.AddDays(1)
        End While
 
        'Verbliebene Zeit zum Servicestart addieren
        ServiceStart = ServiceStart.Add(ts) : dt = dt.AddDays(1)
 
        'Datum und Zeit zurückgeben
        Return New DateTime _
        (dt.Year, dt.Month, dt.Day, ServiceStart.Hour, ServiceStart.Minute, 0)
 
    End Function