Действия с переменными boolean в VBA

[Юнлинг]

Уважаемые господа!

Корректируя общую прогу я автоматически заменил строчку

If p1(k2) > 0 And p2(k2) = p2(k2 + 1))) Then

на

If p1(k2) > 0 And ((p2(k2) And p2(k2 + 1)) Or (Not p2(k2) And Not p2(k2 + 1))) Then

после чего задумался а правильно ли я сделал?
Входные условия массив p1 - цифровой; p2 - логический (Boolean)

[EducatedFool]

Для простоты понимания введём обозначения: А = p2(k2), В = p2(k2 + 1), где А и В - логические значения.

Таким образом, Вы заменили в условном операторе выражение
А = В на выражение (А & B) or (not_A & not_B).

Хотя эти два выражения тождественны, вычисление второго займёт немного больше времени.

Эта разница несущественна - цикл с 100 000 000 итераций на моём древнем компьютере завершился за 10 и 20 секунд соответственно (для первого и второго способа).

Проверка производилась при помощи такого кода:

Sub test()
    Dim X As Boolean, Y As Boolean: Debug.Print "=================": Debug.Print Now
    For i = 1 To 100000000
        'If X = Y Then
        If (X And Y) Or (Not X Or Not Y) Then

        End If
    Next: Debug.Print Now
End Sub

Таким образом, в Вашем случае абсолютно неважно, какой из способов записи условия Вы выберите.
(конечно, если в Вашем массиве не миллионы записей)

Хотя, на мой взгляд, запись p2(k2) = p2(k2 + 1) намного удобнее для восприятия.

[SAS888]

Если уж разговор зашел о скорости выполнения, то позволю заметить, что вместо конструкции

If [условие 1] And [условие 2] And [условие 3] Then

лучше использовать

If [условие 1] Then
        If [условие 2] Then
            If [условие 3] Then
                ...
                ...
            End If
        End If
    End If

Т.к. в первом случае все условия проверяются безусловно, не смотря на то, выполняются они или нет. Во втором случае, при более громоздкой записи кода, при невыполнении, например, 1-го условия, все остальные игнорируются. Еще один "плюс" в том, что если, например, невыполнение первого условия приводит к ошибке при проверке второго. Так, например, выражение

If [A1]<>0 And [A2]/[A1]>0 Then

приведет к ошибке; при применении второго варианта - нет.

[Юнлинг]

Благодарю господа!

Тема закрыта