VB 各种进制相互转换大全(二)
来源:互联网 发布:生日礼物淘宝 编辑:程序博客网 时间:2024/05/21 15:48
更好的代码:
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"
If Not (Len(sInNum) > 0 And Len(sInNum) <= 15 And n > 0 And n <= 36) Then 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
n进制转换至10进制(n<=36)
Dim iX As Long, iY As Long
Const sNum As String = "123456789ABCDEFGHIJKLMNoPQRSTUVWXYZ"
If (n >= 2 And n <= 36) Then
iY = Len(sInNum)
For iX = 0 To iY - 1
nToc = nToc + (InStr(1, sNum, Mid$(sInNum, iY - iX, 1), vbTextCompare)) * (n ^ iX)
Next iX
End If
End Function
- VB 各种进制相互转换大全(二)
- VB 各种进制相互转换大全
- VB 各种进制相互转换大全
- VB 各种进制相互转换大全
- VB 各种进制相互转换大全
- VB 各种进制相互转换大全(一)
- VB 各种进制相互转换
- C# 各种进制之间相互转换
- Oracle中各种进制相互转换
- VB中各种进制的转换
- vb下各种进制的转换
- VC++中各种类型的相互转换总结(二)
- 各种字符串相互转换
- 整理vb各种转换
- VB与C#相互转换
- 二进制及其它进制相互转换(二)
- C#各种类型相互转换
- 各种数据类型的相互转换
- SQL SERVER 登陆问题
- 学习maven的使用,看到一篇很实用的入门教程(菜鸟级入门)
- VB 各种进制相互转换大全(一)
- 本地连接
- 微软警告:IE8测试版可能无法从XPSP3中卸载
- VB 各种进制相互转换大全(二)
- 主控件与鸟瞰控件的联动
- SIP简介,第1部分:SIP初探
- 什么是SIP
- 民间绝妙验方
- UTF-8转换GB2312函数
- Boost源码剖析之:容器赋值-assign
- Windows操作系统万能Ghost全攻略
- CSS代码格式转换工具