近无聊,研究了下进制转换,发现般人使用思路方法都是用来除个数思路方法得到,觉得很是没有创意,于是我就凭着我们中国人聪明以及不屈不饶,刻苦求知精神,终于得到另外种独特思路方法.

那个思路方法首先要使用两个Function:

Function bLength(x As Long) As Long ´用来得到要转换数字转换后 2进制长度
bLength = Int(Log(x) / Log(2))
End Function

Function bBit(x As Long, Pos As Long) As String ´得到指定位
Dim lTmp As Long
lTmp = 2 ^ Pos
bBit = IIf((x And lTmp) = lTmp, \"1\", \"0\")
End Function

以下是主:
Function DecToBin(x As Long) As String
Dim sBuf As String, lLength As Long, lPos As Long
sBuf = \"\"
lLength = bLength(x)
For lPos = 0 To lLength
sBuf = bBit(x, lPos) & sBuf
Next
DecToBin = sBuf
sBuf = \"\"
End Function

x是要转换Dec,返回值就是转换后Bin了.
不过只是无聊时候写,所以也就没有研究相关反和其它转换思路方法.