VBA:10进制转2进制

注意：这两个函数都修改了参数的值，如果想再次使用相应的值应该提前保留

如：a=10;b=DECtoBIN(a);则结果:b=1010,a=0

Public Function DECtoBIN(Dec As Double) As String
    DECtoBIN = ""
    Do While Dec > 0     '这个循环就是辗转相除法的循环
        DECtoBIN = Dec Mod 2 & DECtoBIN     'DECtoBIN 是每次产生的余数连成的字符串
        Dec = Dec \ 2       'dec为下次要进行除法的被除数。
    Loop
End Function

将10进制数转为2进制，并保证8位数组成，不足8位，左边补0

Public Function DECtoBINa(Dec As Double) As String
    DECtoBINa = ""
    Do While Dec > 0     '这个循环就是辗转相除法的循环
        DECtoBINa = Dec Mod 2 & DECtoBINa    'DECtoBIN 是每次产生的余数连成的字符串
        Dec = Dec \ 2       'dec为下次要进行除法的被除数。
    Loop
    cd = Len(DECtoBINa)
    If cd < 8 Then
    DECtoBINa = String(8 - cd, "0") & DECtoBINa
    End If
End Function