Dim counter As Integer = 0
 
For i As Integer = startIndex To endIndex
 
    If CDate(table.Rows(i)("Date")).Month < _
       CDate(table.Rows(i - 1)("Date")).Month Then
 
        If counter mod 2 = 0 Then
            lst.Add((i - startIndex) / (endIndex - startIndex))
        End If
 
        counter += 1
 
    End If
 
Next