Я нифига не понимаю

[kif]

Dim i As Integer
Dim N As Integer

N = 4
For i = 1 To N
List1.AddItem "i = " & i & "; N = " & N
If i = 2 Then N = N + 1
Next

i=1; n=4
i=2; n=4
i=3; n=5
i=4; n=5

Итераций то - 4 блин!!!!!!!!!!!

[RayShade]

И что? В чем вопрос то? Результат работы соответствует тому, что в коде запрограммировано.

[Rainbow]

И что? В чем вопрос то? Результат работы соответствует тому, что в коде запрограммировано.

Ну, он, видишь, верхнюю границу цикла меняет внутри. Видимо, хочет, чтобы она перевычислялась...

Используй другие виды циклов, которые всегда условие проверяют, если уж очень надо... Смотри только, не улети в бесконечный цикл.

Код: Выделить всё

Dim i As Integer
Dim N As Integer

N = 4
i = 1
While i <= N
    Debug.Print "i = " & i & "; N = " & N
    If i = 2 Then N = N + 1
   
    i = i + 1
Wend

[Sergey-13]

kif имел ввиду что он в числе меняет его диапазон, т.е. с N=4 до N=5 а результатов всего 4
В цикле For - Next нельзя програмно менять диапазон
Если уж та нужно используй простой IF

[corgi]

менять то можно, но он вычисляется один раз в начале цикла

[Шурик]

Dim i As Integer
Dim N As Integer

N = 4
For i = 1 To N
List1.AddItem "i = " & i & "; N = " & N
If i = 2 Then N = N + 1
Next

i=1; n=4
i=2; n=4
i=3; n=5
i=4; n=5

Итераций то - 4 блин!!!!!!!!!!!

Можно и так:
If i > 2 Then N = N + 1
Хотя я и сам не знаю что ты хочешь???

[kif]

Я Вам просто объясню задачу

Человек ушел в отпуск на 30 дней
если в течение его отпуска есть праздники установленные государством (8 марта) то этот день не входит в его отпуск, соответственно отпуск уведичивается на 1 день

При начислении отпускных я в цикле, при встрече такого дня, увеличиваю количество итераций на один, а этот день пропускаю, тем самым выходя на нужное количество дней отпуска.

дело еще в том что дата начиления складывается из
1 - дата начала отпуска
2 - день отпуска (т.е. переменная цикла - i)

CurrentDate=DateOtpusk + i

Я то уже все переделал, только времени потерял .... пока нашел "ошибку"