一直报编译错误
Dim array As String= "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public Function getString(ByVal number As Long ,ByVal n As Integer) As StringBuilder
If number > n Then
Return getString(number / n, n).Append(array.Chars(number Mod n))
Else
Return new StringBuilder(array.Chars(number))
End If
End Function
‘试调用时间毫秒值转62进制
Output.Show(getString((Date.now - #1/1/1970#).TotalMilliseconds ,62).ToString)
[此贴子已经被作者于2018/4/18 16:51:34编辑过]