如何通过自定义函数将二进制转换成八进制

时　间:2017-02-03 13:59:11
作　者:易勋   ID：35404  城市：上海
摘　要:进制转换系列
正　文:

在Access中通过自定义函数将二进制转换成八进制。

Public Function BinOct(strBinary As String) As Long
    Dim intl As Integer
    Dim i As Integer
    Dim s As Integer
    Dim intOct As Integer
    Dim strOct As String
   
    intl = Len(strBinary)
    s = 0
   
    For i = intl To 1 Step -1
        If Mid(strBinary, i, 1) = "1" Then
        intOct = intOct + 2 ^ s
        End If
        s = s + 1
        If s = 3 Then
            strOct = intOct & strOct
            intOct = 0
            s = 0
        End If
    Next
    BinOct = intOct & strOct
End Function

例：输入 BinOct (1000010100) 转换出来的结果就是八进制：1024。