十进制转十六进制

Question

现在有12位的数字，希望转为5个字节的HEX码，分别存放在一个数组里，请问如何写？

Answer 1

Hex 函数返回代表十六进制数值的 String。语法Hex(number)必要的 number 参数为任何有效的数值表达式或字符串表达式。说明如果 number 还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。如果 number 为 所得为
Null Null
Empty 零 (0)
任何其他的数字 最多可到八个十六进制字符。
适当范围内的数字，前缀以 &H，可以直接表示十六进制数字。例如，十六进制表示法的 &H10 代表十进制的 16。==============================本示例使用 Hex 函数来得到某数值的 16 进制值。Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回 A。
MyHex = Hex(459) ' 返回 1CB。

Answer 2

Private Sub Command1_Click()
    Debug.Print Hex$(123456789)
End Sub输出：75BCD15不是单子节

Answer 3

//现在有12位的数字，希望转为5个字节的HEX码，分别存放在一个数组里，请问如何写？12位的数字转换为16进制表示，怎么会是5个字节？请楼主给一些数据

Answer 4

'十进制数转换为任意进制数
'远志工作室
'[email protected] Function DecToAny(Num As Double) As String
 m = Num '请输入被转换的数
 n = 2 '转换成几进制数
m = Abs(m)
x = Log(m) / Log(n)
y = Int(x) + 1
ReDim a(y)
For i = 1 To y
a(i) = (m - (m \ n) * n)
m = m \ n
Next
For j = y To 1 Step -1
DecToAny = DecToAny & a(j)
Next
End Function