将十六进制转化为十进制的将十六进制转化为十进制的 C C 程序程序 输入：Hex(十六进制数) 输入数据类型：String 输出：HEX_to_DEC(十进制数) 输出数据类型：Long 输入的最大数为 7FFFFFFF,输出的最大数为 2147483647Public Function HEX_to_DEC(ByVal Hex As String) As LongDim i As LongDim B As LongHex = UCase(Hex)For i = 1 To Len(Hex)Select Case Mid(Hex, Len(Hex) - i + 1, 1)Case “0“: B = B + 16 (i - 1) * 0Case “1“: B = B + 16 (i - 1) * 1Case “2“: B = B + 16 (i - 1) * 2Case “3“: B = B + 16 (i - 1) * 3Case “4“: B = B + 16 (i - 1) * 4Case “5“: B = B + 16 (i - 1) * 5Case “6“: B = B + 16 (i - 1) * 6Case “7“: B = B + 16 (i - 1) * 7Case “8“: B = B + 16 (i - 1) * 8Case “9“: B = B + 16 (i - 1) * 9Case “A“: B = B + 16 (i - 1) * 10Case “B“: B = B + 16 (i - 1) * 11Case “C“: B = B + 16 (i - 1) * 12Case “D“: B = B + 16 (i - 1) * 13Case “E“: B = B + 16 (i - 1) * 14Case “F“: B = B + 16 (i - 1) * 15End SelectNext iHEX_to_DEC = B End Function 用途：将十进制转化为十六进制 输入：Dec(十进制数) 输入数据类型：Long 输出：DEC_to_HEX(十六进制数) 输出数据类型：String 输入的最大数为 2147483647,输出最大数为 7FFFFFFFPublic Function DEC_to_HEX(Dec As Long) As StringDim a As StringDEC_to_HEX = “Do While Dec 0a = CStr(Dec Mod 16)Select Case aCase “10“: a = “A“Case “11“: a = “B“Case “12“: a = “C“Case “13“: a = “D“Case “14“: a = “E“Case “15“: a = “F“End SelectDEC_to_HEX = a & DEC_to_HEXDec = Dec 16Loop End F