''' <summary>Ganze Stunde vor einem Zeitpunkt</summary>
    ''' <param name="dt">Zeitpunkt</param>
    Private Function FullHourBefore(ByVal dt As Date) As Date
        Return dt.Date.AddHours(dt.Hour)
    End Function
 
    ''' <summary>Liegen zwei Zeitpunkte innerhalb eines 
    ' Vergleichs-Intervalls</summary>
    ''' <param name="dt1">Erster Zeitpunkt</param>
    ''' <param name="dt2">Zweiter Zeitpunkt</param>
    ''' <param name="maxdiff">Intervall</param>
    Private Function AreDateTimesEqual(ByVal dt1 As Date, ByVal dt2 As Date, _
      maxdiff As TimeSpan) As Boolean
 
        If maxdiff < TimeSpan.Zero Then
            Throw New ArgumentException("Negative Schranke bei Zeitvergleich")
        End If
 
        Return New TimeSpan(Math.Abs(dt1.Ticks - dt2.Ticks)) <= maxdiff
    End Function
 
    ''' <summary>Erstellung einer Serie von gleichabständigen Zeitpunkten</summary>
    ''' <param name="dtStart">Startzeitpunkt</param>
    ''' <param name="dtEnd">Endzeitpunkt</param>
    ''' <param name="diff">Zeitintervall</param>
    Private Function GetTimeSeries(ByVal dtStart As Date, ByVal dtEnd As Date, _
      diff As TimeSpan) As List(Of Date)
 
        If diff <= TimeSpan.Zero Or
            dtStart >= dtEnd Then
            Throw New ArgumentException("Keine geeignete Parameterliste bei" & _
              "Zeitreihen-Erstellung")
        End If
 
        If Math.Abs(dtStart.Ticks - dtEnd.Ticks) \ Math.Abs(diff.Ticks) > _
          100 Then
            Throw New ArgumentException("Parameter definieren zu viele" & _
            "Zeitpunkte")
        End If
 
        Dim dt As Date = dtStart
        Dim dtList As New List(Of Date)
        dtList.Add(dtStart)
 
        Do Until dtEnd.Ticks < dt.Ticks + diff.Ticks
            dt = dt.Add(diff)
            dtList.Add(dt)
        Loop
 
        Return dtList
 
    End Function