十六進制轉化成十進制

/******************************************************************************/ //函數名： 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