Expression too complex

[Jack Ferre]

Что это за гадкая ошибка?

Не пойму из-за чего возникает. Если нажать старт выполнение продолжается.

[Хакер]

Название говорит само за себя. Какие могут быть вопросы?

[Jack Ferre]

Имхо ничего "too complex" нет. Возникает из-за чего-то другого.

Однажды возникала в строке sngЧисло = lngЧисло / 10000

Сейчас в Tag_GetLenSynchsafe = Tag_GetLenSynchsafe + baSize(i) * 2 ^ (7 * (3 - i)) (i = 0 to 3)

Расписал как

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

        Dim ext As Long
        Dim mul As Long
        ext = (7 * (3 - i))
        mul = 2 ^ ext
        Tag_GetLenSynchsafe = Tag_GetLenSynchsafe + baSize(i) * mul


Вылетает в строке mul = 2 ^ ext при ext равном 21.

Читаю файлы (1000+ штук) и только на 7-ми из них вылетает ошибка.

Сейчас пофиксил
Tag_GetLenSynchsafe = Tag_GetLenSynchsafe + baSize(i) * Array(2097152, 16384, 128, 1)(i)

Теперь ошибки не вылетают. Но мне кажется что-то не так и проблема осталась.

И так для справки. Можно пожалуйста код способный вызвать ошибку "Expression too complex"?

[The trick]

Можно пожалуйста код способный вызвать ошибку "Expression too complex"?

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

Dim z() As Long
Debug.Print (Not Not z) / 1


Такая ошибка, в основном бывает когда производится действие с NaN, INF.

[Jack Ferre]

Касательно ошибки - ничего такого (в связи с чем должна вылетать ошибка) я не делаю.

Совсем забыл. Вылетает только в P-Code.