Private Sub Command1_Click() Dim atype As Long 'atype=00000000 00000000 11111111 11111111 atype = &HFFFF& ' 00000000 00000000 11111111 11111111 'atype=and 00000000 00000000 11111111 00000000 atype = atype And &HFF00& MsgBox atype End Sub 参考
'十六进制转为十进制 Public Function SixteenTurnTen(ByVal varNum As String) As String SixteenTurnTen = Val("&H" & CStr(varNum)) End Function'十进制转为十六进制 Public Function TenTurnSixteen(ByVal varNum As Long) As String TenTurnSixteen = Hex(varNum) End Function十进制做运算,然后转化。
Dim atype As Long
'atype=00000000 00000000 11111111 11111111
atype = &HFFFF&
' 00000000 00000000 11111111 11111111
'atype=and 00000000 00000000 11111111 00000000
atype = atype And &HFF00&
MsgBox atype
End Sub
参考
Public Function SixteenTurnTen(ByVal varNum As String) As String
SixteenTurnTen = Val("&H" & CStr(varNum))
End Function'十进制转为十六进制
Public Function TenTurnSixteen(ByVal varNum As Long) As String
TenTurnSixteen = Hex(varNum)
End Function十进制做运算,然后转化。
不管是什么进制,数字还是数字啊,不管你+-*/或者or,and,xor,随你怎么运算都是一样,进制不同只是表示方法不一样而已,实质是一回事
10进制直接写 123& * 456 = 56088
8进制 &O &o173& * &o710 = 56088
16进制 &H &h1C8& * &h7B = 56088