VBA и побитовая операция с десятичным типом данных (Access-365) - PullRequest
Новая
       97

VBA и побитовая операция с десятичным типом данных (Access-365)

0 голосов
/ 11 апреля 2020

Jet Engine не поддерживает внутреннюю побитовую AND операцию.

VBA делает это, но я пробую это только с «классическим» типом данных (Long).

I нужна большая битовая маска и побитовая And операция.

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

... Похоже, что оператор And не поддерживает десятичный тип данных. Возможно ли это? 

Public Function AndBitABit(variabile, riferimento)
    AndBitABit = variabile and riferimento
    'with same results

    '1)
    'variabile = CDec(variabile)
    'riferimento = CDec(riferimento)
    'AndBitABit = variabile and riferimento

    '2)
    'AndBitABit = cdec(variabile and riferimento)

    '3)
    'dim v
    'v = variabile and riferimento

    '4)
    'v = (variabile and riferimento)<>0  
End Function
...