十六进制转化成十进制

/******************************************************************************/ //函数名： hex_TO_dec //功能说明：十六进制转化成十进制 //输入参数：1、hex  呆转化十六进制数 //return：转化后的10进制 //函数完成：woods /******************************************************************************/ Long i Long B

Hex = trim(Hex) For i = 1 To Len(Hex)     choose Case Mid(Hex, Len(Hex) - i + 1, 1)         Case "0"    B = B + 16 ^ (i - 1) * 0         Case "1"    B = B + 16 ^ (i - 1) * 1         Case "2"    B = B + 16 ^ (i - 1) * 2         Case "3"    B = B + 16 ^ (i - 1) * 3         Case "4"    B = B + 16 ^ (i - 1) * 4         Case "5"    B = B + 16 ^ (i - 1) * 5         Case "6"    B = B + 16 ^ (i - 1) * 6         Case "7"    B = B + 16 ^ (i - 1) * 7         Case "8"    B = B + 16 ^ (i - 1) * 8         Case "9"    B = B + 16 ^ (i - 1) * 9         Case "A"    B = B + 16 ^ (i - 1) * 10         Case "B"    B = B + 16 ^ (i - 1) * 11         Case "C"    B = B + 16 ^ (i - 1) * 12         Case "D"    B = B + 16 ^ (i - 1) * 13         Case "E"    B = B + 16 ^ (i - 1) * 14         Case "F"    B = B + 16 ^ (i - 1) * 15  End choose Next

return B