7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
viena 2003-09-09
- 打赏
- 举报
如F对应1111，用select case
viena 2003-09-09
- 打赏
- 举报
一一对应，1位16进制对应4位2进制
yijiansong 2003-09-09
- 打赏
- 举报
如何转换成2进制？
viena 2003-09-09
- 打赏
- 举报
乘以2
Hex(&H3CF5C28F * 2)
Hex(&H3CF5C28F * 2)
Gelim 2003-09-09
- 打赏
- 举报
Dim a As Double
Dim b As String
a = Val("&H3CF5C28F")
b = Hex(a * 2)
Dim b As String
a = Val("&H3CF5C28F")
b = Hex(a * 2)
lihanbing 2003-09-09
- 打赏
- 举报
Function LM(a As Long) As Long
Dim b As Long, c As Long
b = a And &H3FFFFFFF
c = a And &H40000000
b = b + b
If c Then
LM = b Or &H80000000
Else
LM = b
End If
End Function
Dim b As Long, c As Long
b = a And &H3FFFFFFF
c = a And &H40000000
b = b + b
If c Then
LM = b Or &H80000000
Else
LM = b
End If
End Function
viena 2003-09-09
- 打赏
- 举报
转换成2进制，右边加个0，再转换成16进制 ：）
