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

Public Function OctDec(varOctal As Variant)
    Dim intl As Integer
    Dim lngDecimal As Long
    Dim i As Integer
    Dim s As Integer
    Dim b As Integer
    
    intl = Len(varOctal)
    s = 0 For i = intl To 1 Step -1       
        lngDecimal = lngDecimal + Mid(varOctal, i, 1) * 8 ^ s
        s = s + 1      
    Next   
    OctDec = lngDecimal
End Function

例：输入OctDec (2000) 转换出来的结果就是十进制：1024。