16转10è¿å¶,è¾å
¥åæ°ï¼æ好ç¨è¿æ ·å¤çï¼å符串 = CStr(Hex2Dec(å符串))ok
Public Function Hex2Dec(ByVal InputData As String) As Double
If str_in(InputData, "0123456789ABCDEFabcdef") = False Then
Return 0
End If
InputData = UCase(InputData)
Dim temps As String
Dim i As Integer
Dim DecOut As Double
Dim HexStep As Double
For i = Strings.Len(InputData) To 1 Step -1
HexStep = HexStep * 16
If HexStep = 0 Then
HexStep = 1
End If
temps = Mid(InputData, i, 1)
Select Case temps
Case "0"
DecOut = DecOut + (0 * HexStep)
Case "1"
DecOut = DecOut + (1 * HexStep)
Case "2"
DecOut = DecOut + (2 * HexStep)
Case "3"
DecOut = DecOut + (3 * HexStep)
Case "4"
DecOut = DecOut + (4 * HexStep)
Case "5"
DecOut = DecOut + (5 * HexStep)
Case "6"
DecOut = DecOut + (6 * HexStep)
Case "7"
DecOut = DecOut + (7 * HexStep)
Case "8"
DecOut = DecOut + (8 * HexStep)
Case "9"
DecOut = DecOut + (9 * HexStep)
Case "A"
DecOut = DecOut + (10 * HexStep)
Case "B"
DecOut = DecOut + (11 * HexStep)
Case "C"
DecOut = DecOut + (12 * HexStep)
Case "D"
DecOut = DecOut + (13 * HexStep)
Case "E"
DecOut = DecOut + (14 * HexStep)
Case "F"
DecOut = DecOut + (15 * HexStep)
Case Else
Return 0
End Select
Next i
Return DecOut
End Function
'10转16è¿å¶,åæ°æ好å
ç¨IsNumericå¤æä¸ä¸ok
Public Function Dec2Hex(ByVal InputData As String) As String
If IsNumeric(InputData) Then
Return Hex(CDbl(InputData))
Else
Return ""
End If
End Function
温馨提示:答案为网友推荐,仅供参考