十六进制转换成十进制-专业自动化论坛-中国工控网论坛

十六进制转换成十进制点击：1356 | 回复：12

YTT2008

精华：0帖
求助：0帖
帖子：15帖 | 52回
年度积分：0
历史总积分：108
注册：2007年12月07日

发表于：2008-09-09 09:48:27

楼主

请问各位大侠，VB用什么指令可以把十六进制数转换成十进制？

分享到：

邀请回答

回复楼主

楼楼

精华：0帖
求助：0帖
帖子：2帖 | 539回
年度积分：0
历史总积分：538
注册：2006年7月04日

发表于：2008-09-09 10:26:16

1楼

要自己做程序的.

回复引用举报

暮色

精华：0帖
求助：0帖
帖子：10帖 | 199回
年度积分：0
历史总积分：446
注册：2004年12月24日

发表于：2008-09-09 12:40:38

2楼

Function Hex2Dec(InputData As String) As Double
''
'' Converts Hexadecimal to Decimal
''
Dim I As Integer
Dim DecOut As Double
Dim Lenhex As Integer
Dim HexStep As Double

'' Zeroise the output
DecOut = 0

'' The length of the input
''
InputData = UCase(InputData)
Lenhex = Len(InputData)

''
'' Check to make sure its a valid Hex Number
''
For I = 1 To Lenhex

If IsNumeric(Mid(InputData, I, 1)) Then
''
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "A" Then
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "B" Then
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "C" Then
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "D" Then
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "E" Then
GoTo NumOk
ElseIfｍｉｄ（InputData, I, 1) = "F" Then
GoTo NumOk
Else
MsgBox "Number given is not in Hex format", vbCritical
Exit Function
End If

NumOk:
Next I

HexStep = 0

''
''
'' Convert the Number to Decimal
''
For I = Lenhex To 1 Step -1

HexStep = HexStep * 16
If HexStep = 0 Then
HexStep = 1
End If

Ifｍｉｄ（InputData, I, 1) = "0" Then
   DecOut = DecOut + (0 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "1" Then
   DecOut = DecOut + (1 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "2" Then
   DecOut = DecOut + (2 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "3" Then
   DecOut = DecOut + (3 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "4" Then
   DecOut = DecOut + (4 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "5" Then
   DecOut = DecOut + (5 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "6" Then
   DecOut = DecOut + (6 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "7" Then
   DecOut = DecOut + (7 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "8" Then
   DecOut = DecOut + (8 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "9" Then
   DecOut = DecOut + (9 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "A" Then
   DecOut = DecOut + (10 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "B" Then
   DecOut = DecOut + (11 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "C" Then
   DecOut = DecOut + (12 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "D" Then
   DecOut = DecOut + (13 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "E" Then
   DecOut = DecOut + (14 * HexStep)
ElseIfｍｉｄ（InputData, I, 1) = "F" Then
   DecOut = DecOut + (15 * HexStep)
Else
   MsgBox "Something is Screwed up, Wahhhhhhhhhhh", vbCritical
End If