十六进制数转换成十进制数的函数是什么？？？？？急。

[zjwzt2008]

十六进制数转换成十进制数的函数是什么？？？？？急。

例如：十六进制数“0C”怎么转换成十进制数“12”？？？？

[jordi2014]

Clng(&H0C)

[zjwzt2008]

那怎么写？
data=clng("0C")??????

[jordi2014]

dim data as long
data=clng(&HoC)

如果你说的十六进制数是字符,则这样写：

data=clng(val("&HoC"))

[shanlisong]

Function hextointer(strin)
Dim i, j, k, result
result = 0
For i = 1 To Len(strin)
If Mid(strin, i, 1) = "F" Then
j = 15
End If
If Mid(strin, i, 1) = "E" Then
j = 14
End If
If Mid(strin, i, 1) = "D" Then
j = 13
End If
If Mid(strin, i, 1) = "C" Then
j = 12
End If
If Mid(strin, i, 1) = "B" Then
j = 11
End If
If Mid(strin, i, 1) = "A" Then
j = 10
End If
If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then
j = CInt(Mid(strin, i, 1))
End If
For k = 1 To Len(strin) - i
j = j * 16
Next
result = result + j
Next
hextointer = result
End Function

[zergs]

楼上的好复杂啊。用lhfcsdn(不断努力ing) 就可以拉

[starsoulxp]

lhfcsdn(不断努力ing)的最简单

[dongge2000]

他的做不了大数，明白吗？

[sakurako]

告诉你一个简单的
例如

Private Sub Command1_Click()
Dim hexstr As String
Dim tLong As Long
hexstr = "0C"
tLong = CLng("&H" & hexstr)
MsgBox tLong
End Sub