主题：自己封装了一个进制转换函数，不知道哪里写错了，一直运行不了

Public Function getString(ByVal value As Decimal) As String
Dim keys = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim exponent = keys.Length
Dim result As String = String.Empty
Do
    Dim index As Decimal = value Mod exponent
    result = keys(CInt(index)) & result
    value =(value - index) / exponent
Loop While value > 0

Return result
End Function

调用

Output.Show(getString((Date.now - #1/1/1970#).TotalMilliseconds))