&H82C0C561转换成正数2193671521，急，急，急。。。。。。。

[ZHYPDW]

如题，在VB中怎样可以做到，用clng("&H82C0C561"),cdbl("&H82C0C561")都不行，
只能得到-2101295775 ，但我想得到2193671521，该如何做，谢谢！

[csdngoodnight]

2193671521已超出long类型范围（2147483648）

[ZHYPDW]

问题已解决，2193671521已超出long类型范围（2147483648），但没超出Double类型的范围。
可以自己写个转换函数：
Private Function fHexDbl(ByVal strHex As String) As Double
Dim dblRet As Double
dblRet = 0
Dim iNum As Integer, iloop As Integer
iNum = Len(strHex)
For iloop = 1 To iNum
dblRet = dblRet + Val("&H" + Mid(strHex, iloop, 1)) * (16 ^ (iNum - iloop))
Next
fHexDbl = dblRet
End Function

[pigpag]

楼上的可以。
不过最好判断一下strHex是否以&H开头

[无意1975]

正如csdngoodnight(居然比我还快，你真行！) 所说已经超过long的类型范围。
所以可以考虑把它分段处理再加起来。

Dim bb As String
Dim aa As Double

bb = "&H82C0C561"

aa = (Val("&H" & Mid(bb, 3, 3)) * Val("&H1000") + Val("&H" & Mid(bb, 6, 3))) * Val("&H100") + Val("&H" & Mid(bb, 9, 2))

测试过了，
则aa = 2193671521

[无意1975]

呵呵，刚才正在尝试，没看到已经解决。:)

[IMHELLFIRE]

学习...

[zyl910]

dim a as long
dim b as double
a=&H82C0C561"
b=a and &H7FFFFFFF
if a and &H80000000 then b=b+2^31