Шестнадцатеричный ANDing в Excel и / или Visual Basic

Question

Я пытаюсь AND два шестнадцатеричных числа по битам в Excel/Visual Basic.

Ex. 53FDBC AND 00FFFF, что должно дать 00FDBC.

Есть идеи, как это сделать?

Answer 1

Полагаю, у вас 2 значения хранятся в виде строк. В этом случае вы можете сделать следующее:

Dim hex1 As String
hex1 = "53FDBC"

Dim hex2 As String
hex2 = "00FFFF"

Dim bin1 As String
bin1 = CLng("&H" & hex1)

Dim bin2 As String
bin2 = CLng("&H" & hex2)

Dim result As String
result = Hex$(bin1 And bin2)

результат теперь содержит «FDBC», но вы можете дополнить его нулями с нулями

Как функция (модуль Excel) это может быть реализовано как:

Function hexand(hex1 As String, hex2 As String) as String

Dim bin1 As String
bin1 = CLng("&H" & hex1)

Dim bin2 As String
bin2 = CLng("&H" & hex2)

hexand = Hex$(bin1 And bin2)

End Function

Answer 2

шестнадцатеричное значение 0xFFFF в десятичном виде - 65536 шестнадцатеричное значение 0x53FDBC в десятичном виде - 5504444

Так что вы можете использовать = DEC2HEX (MOD (5504444,65536))

Answer 3

iirc, он встроенный, только операторы сдвига битов не встроены

& H53FDBC и & H00FFFF