Private Sub GetTempSpan(ByVal file As String, ByVal Interval As Integer, _
                        ByVal outfile As String)
 
Open file For Input As #1
 
Dim line As String
Dim parts() As String, dt As Date, temp As Double
Dim found As Boolean, limit As Date, start As Date
Dim i%, k%, kmax%
 
Line Input #1, line
parts = Split(line)
start = CDate(parts(0) & " " & parts(1)) 'Startdatum
 
'Ermittlung der benötigten Klassenzahl
While Not EOF(1)
   Line Input #1, line
   parts() = Split(line, " ")
 
   dt = CDate(parts(0) & " " & parts(1))
   found = False: limit = start: k = 0
   While Not found
      k = k + 1
      limit = DateAdd("n", k * Interval, start)
      found = dt <= limit
   Wend
   If k > kmax Then kmax = k
Wend
Close #1
 
'Bestimmung der Extremwerte pro Intervall (min, max)
 
Dim min() As Double, max() As Double, classlimit() As Date
ReDim min(kmax) As Double
ReDim max(kmax) As Double
ReDim classlimit(kmax) As Date
 
For k = 1 To kmax
   min(k) = 1000: max(k) = -1000 'Vorbelegung der Extremwertarrays
Next k
 
Open file For Input As #1
 
While Not EOF(1)
   Line Input #1, line
   parts() = Split(line, " ")
 
   dt = CDate(parts(0) & " " & parts(1))
   temp = CDbl(parts(2))
   found = False: limit = start: k = 0
   While Not found
      k = k + 1
      limit = DateAdd("n", k * Interval, start)
      classlimit(k) = limit
      found = dt <= limit
   Wend
   If min(k) > temp Then min(k) = temp
   If max(k) < temp Then max(k) = temp
Wend
Close #1
 
'Ausgabe Intervall-Obergrenze und Extremwerte
Open outfile For Output As #1
For k = 1 To kmax
   Print #1, Format(classlimit(k), "General Date"); "  "; min(k); " --- "; max( _
     k)
Next k
Close #1 
 
End Sub