33位进制如何换算？如何设置公式

33位进制如何换算？如何设置公式

33进制规则是：0、1、2、3、4、5、6、7、8、9、A、C、D、E、F、G、H、J、K、L、M、N、P、Q、R、S、T、V、W、X、Y、Z、10，字母：I、O、U不用；

VBA代码

Function tenTo33(x As Long) As String
Dim i As Integer
Dim tmp As Long
Dim start As Boolean
tmp = x
Dim xStr(0 To 32) As String
For i = 0 To 32
Select Case i
Case 0 To 9: xStr(i) = Chr(i + 48)
Case 10 To 17: xStr(i) = Chr(i + 55)
Case 18 To 22: xStr(i) = Chr(i + 56)
Case 23 To 27: xStr(i) = Chr(i + 57)
Case 28 To 32: xStr(i) = Chr(i + 58)
End Select
Next i
For i = 10 To 1 Step -1
If Int(tmp / 33 ^ i) > 0 Then
start = True
End If
If start Then
tenTo33 = tenTo33 & xStr(Int(tmp / 33 ^ i))
If Int(tmp / 33 ^ i) > 0 Then
tmp = tmp - Int(tmp / 33 ^ i) * 33 ^ i
End If
End If
Next i
tenTo33 = tenTo33 & xStr(tmp)
End Function