vb十六进制转十进制，求vb程序代码。

P8551945

vb十六进制转十进制，求vb程序代码。

btjily

Private   Function   HexToDec(ByVal   strHex   As   String)   As   Long
On   Error   GoTo   ErrorDo
        Dim   Tmp   As   Long
        Dim   s   As   String
        s   =   "&H "   &   strHex
        Tmp   =   Val(s)
        HexToDec   =   Tmp
        Exit   Function
ErrorDo:
        HexToDec   =   -1
End   Function