vb 下进制转换（2-36）

Public Function cTon(ByVal sInNum As String, ByVal n As Double) As String
'转换至n进制(n<=36)
  Dim dx As Double, iX As Long
  Const sNum As String = "0123456789ABCDEFGHIJKLMNoPQRSTUVWXYZ"
  ''Const sNum As String = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
  If Not (Len(sInNum) > 0 And Len(sInNum) <= 15 And n > 0 And n <= 36) Then
   cTon = -1
  Exit Function
 
  dx = CDbl(sInNum)
  Do While dx > 0
    iX = dx - Int(dx / n) * n + 1           'iX = dX Mod n +1 用Mod会溢出
    cTon = Mid$(sNum, iX, 1) & cTon
    dx = Int(dx / n)
  Loop
End Function

Public Function nToc(ByVal sInNum As String, ByVal n As Double) As Double
  Dim iX As Long, iY As Long, i As Integer
  Const sNum As String = "123456789ABCDEFGHIJKLMNoPQRSTUVWXYZ"
  ''Const sNum As String = "123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
  If (n >= 2 And n <= 36) Then
    iY = Len(sInNum)
    For iX = 0 To iY - 1
      i = InStr(1, sNum, Mid$(sInNum, iY - iX, 1), vbTextCompare)
      If i >= n Then
        nToc = -1
        Exit Function
      End If
      nToc = nToc + i * (n ^ iX)
    Next iX
  Else
    nToc = -1
    Exit Function
  End If
End Function