VB.Net中的10进制与34进制的转换（不包含字母I和O）

Dim repString As String = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"

10进制转34进制

Private Function 10To34(ByVal Num As Integer)

Return repString(Num \ (34 * 34 * 34)) & repString(Num \ (34 * 34) Mod 34) & repString(Num \ 34 Mod 34) & repString(Num Mod 34)

End Function

34进制转10进制

Private Function 34To10(ByVal Numstring As String)

Return (InStr(repString, Mid(Numstring, 4, 1)) - 1) + 34 * (InStr(repString, Mid(Numstring, 3, 1)) - 1) + 34 * 34 * (InStr(repString, Mid(Numstring, 2, 1)) - 1) + 34 * 34 * 34 * (InStr(repString, Mid(Numstring, 1, 1)) - 1)

End Function

PS:VB.Net中10进制与16进制的转换可前往http://t.csdn.cn/knVCj