vba十进制转换成二进制代码(VB16进制转换10进制)
工业自动化控制中,VB做上位机软件应用广泛,在通讯时,需要使用到的数据转换,今天介绍16进制转换10进制,代码如下:
Function HEX_to_DEC(ByVal Hex As String) As String '十六进制转换十进制度
Dim i As Long
Dim b As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i 1, 1)
Case "0": b = b 16 ^ (i - 1) * 0
Case "1": b = b 16 ^ (i - 1) * 1
Case "2": b = b 16 ^ (i - 1) * 2
Case "3": b = b 16 ^ (i - 1) * 3
Case "4": b = b 16 ^ (i - 1) * 4
Case "5": b = b 16 ^ (i - 1) * 5
Case "6": b = b 16 ^ (i - 1) * 6
Case "7": b = b 16 ^ (i - 1) * 7
Case "8": b = b 16 ^ (i - 1) * 8
Case "9": b = b 16 ^ (i - 1) * 9
Case "A": b = b 16 ^ (i - 1) * 10
Case "B": b = b 16 ^ (i - 1) * 11
Case "C": b = b 16 ^ (i - 1) * 12
Case "D": b = b 16 ^ (i - 1) * 13
Case "E": b = b 16 ^ (i - 1) * 14
Case "F": b = b 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = b
End Function
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com