工業自動化控制中，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
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
