Function S2H2(Num As Long) As String '10进制长整数转2位16进制字符串
Dim mynum As String
mynum = Hex(Num)
If Len(mynum) = 1 Then mynum = “0” + mynum
S2H2 = mynum
End Function
10进制长整数转2位16进制字符串
最新推荐文章于 2022-09-06 14:36:18 发布
Function S2H2(Num As Long) As String '10进制长整数转2位16进制字符串
Dim mynum As String
mynum = Hex(Num)
If Len(mynum) = 1 Then mynum = “0” + mynum
S2H2 = mynum
End Function