’ 用途写入用:将十六进制转化为十进制 ,N位
Function FHexToInt(ByVal str As String, ByRef outp() As Short) As String
Dim aa, bb As Integer
Dim cc As String = “”
Dim dd As String = “”
Dim a1 As String = “”
aa = Len(str)
For i = 1 To Len(str) Step 2
a1 = Mid(str, aa - i, 2)
dd = Val("&H" & a1)
cc = cc & dd 'CC 与变量换位
Next i
For i = 1 To Len(cc) Step 2 '输出数组
outp(bb) = Mid(cc, Len(cc) - i, 2)
bb = bb + 1
Next i
FHexToInt = cc
End Function
将十六进制转化为十进制 N位
最新推荐文章于 2023-06-14 15:51:01 发布