access中自定义函数十进制十六进制之间的转换

时　间:2018-05-08 10:18:11
作　者:鸵鸟   ID：39610  城市：中山
摘　要:进制间转换
正　文:

十进制转换为十六进制：

Public Function DecHex(lngDecimal As Long)

    Dim lngQout As Long
    Dim strTmp As String
    Dim intTmp As Integer
    lngQout = lngDecimal
    Do Until lngQout = 0
        intTmp = lngQout Mod 16
        Select Case intTmp
        Case Is <= 9
            strTmp = intTmp & strTmp
        Case 10
            strTmp = "A" & strTmp
        Case 11
            strTmp = "B" & strTmp
        Case 12
            strTmp = "C" & strTmp
        Case 13
            strTmp = "D" & strTmp
        Case 14
            strTmp = "E" & strTmp
        Case 15
            strTmp = "F" & strTmp
        End Select
            
      lngQout = Int(lngQout / 16)
    Loop
    DecHex = strTmp

End Function

十六进制转换为十进制

Public Function HexDec(strHexadecimal As String)
    Dim intl As Integer
    Dim lngDecimal As Long
    Dim i As Integer
    Dim s As Integer
    
    intl = Len(strHexadecimal) 
    s = 0
    For i = intl To 1 Step -1
        SS = Mid(strHexadecimal, i, 1)
            
               Select Case SS    
                  Case 0
                        SS = SS
                    Case 1
                        SS = SS
                      Case 2
                        SS = SS
                    Case 3
                        SS = SS
                    Case 4
                        SS = SS
                    Case 5
                        SS = SS
                    Case 6
                        SS = SS
                    Case 7
                        SS = SS
                    Case 8
                        SS = SS
                    Case 9
                        SS = SS
                    Case "A"
                        SS = 10
                    Case "B"
                        SS = 11
                    Case "C"
                        SS = 12
                    Case "D"
                        SS = 13
                    Case "E"
                        SS = 14
                    Case "F"
                        SS = 15
                End Select
        lngDecimal = lngDecimal + SS * 16 ^ s
        s = s + 1
    Next
    HexDec = lngDecimal
End Function

Access软件网官方交流QQ群 (群号:39785885) 　　　　　　Access源码网店