用按位与是最容易的。
譬如你有一个十六进制数x,你想提取第五位,那么首先定义一个按位与的mask:
dim m as Integer = 15 << (5*4)
15写成二进制是1111,左移5*4位,也就是移到需要的第5位16进制数那里。然后,按位与:
dim y as Integer
y = x And m
最后把y右移5*4位:
y = y >> (5*4)
你就得到了你要的第5位。
x=&HAB1234
msgbox mid(hex(x),3,1)
显示B
转换为16进制字符串后用 MID函数或其他函数取得。