Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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源码网店

最新评论: 查看更多评论(2)

2020/12/25 11:37:04王玮
10进制转16进制直接用vba自带函数hex就行。16进制转10进制居然没有现成的,还要自定义,真想引用excel函数过来。

2020/12/25 11:36:53王玮
10进制转16进制直接用vba自带函数hex就行。16进制转10进制居然没有现成的,还要自定义,真想引用excel函数过来。

发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!

用户名:
密 码:
内 容:
 

常见问答:

技术分类:

相关资源:

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助