У меня имеется два набора данных по глубине. Я зову их Section (где ищу) и Interval (что ищу).
Мне нужна ваша помощь с определением количества Section, в которые входит один или несколько Interval. Ниже есть рисунок, если не понятно написал.
BottomSection(n) всегда равно TopSection(n+1). Т.е. конец одной секции - всегда начало следующей, конечно кроме последней.
Значения хранятся в массивах:
- Код: Выделить всё
Dim TopSection() as Long
Dim BottomSection() as Long
Dim TopInterval() as Long
Dim BottomInterval() as Long
Пытаюсь в цикле перебрать все с учетом значения переменной FlagIsFirst - True или False:
- Код: Выделить всё
For i = LBound(TopSection) To UBound(TopSection) - 1
For j = LBound(TopInterval) To UBound(TopInterval) - 1
If TopSection(i) <= TopInterval(j) And BottomSection(i) >= BottomInterval(j) And FlagIsFirst = True Then
Joints = Joints + 1
FlagIsFirst = False
End If
Next
FlagIsFirst = True
Next
Не могу понять почему цикл выполняется несколько раз, и количество считаемых Joints получается завышенным.
Заранее спасибо.
