ms-access - 在没有 VBA 的情况下从 base-32 转换为十进制

Question

我一直在搜索和搜索，但我的 Google-fu 失败了。我正在尝试使用表达式或宏将编码数字从 base-32 转换为十进制，但我没有找到任何东西。我知道 Excel 有“十进制”功能，我一直希望我能偶然发现类似的东西。

我不愿意使用 VBA，因为我现在不想花时间重新学习这门语言，而且我担心我的组织会将其标记为具有潜在危险(这可能会扼杀我制作任何数据库的尝试)。

输入 "16O9E55"我希望得到 1300543653 的结果.

我应该澄清一下，根据维基百科，这是“base32hex”。它是 0-9，A-V。只有 7 个 base-32 字符需要转换为 10 位十进制数字。我的用例是将条形码解码为我需要的数据。

Answer 1

我怀疑这可以在没有 VBA 的情况下完成。考虑改编自 https://www.excelbanter.com/excel-worksheet-functions/150198-formulat-convert-base-32-decimal.html 的代码

Public Function Base32ToDec(Num As String) As Variant

Static Digits As String
Dim i As Integer
Dim myIndex As Integer
Dim myStr As String

Digits = "0123456789ABCDEFGHIJKLMNOPQRSTUV"
For i = Len(Num) To 1 Step -1
    myStr = Mid(Num, i, 1)
    myIndex = InStr(Digits, myStr) - 1
    Base32ToDec = Base32ToDec + myIndex * 32 ^ (Len(Num) - i)
Next i

End Function