利用EXCEL VBA指定将十进制浮点数转换为二进制数

1．EXCEL 自带的工具/加载宏/分析工具/  中的确有类似函数可将十进制数轻松转化为二进制。可是该函数的致命缺点是只能装换

-512~511之间的整数，超过此范围的数则无能为力。

所以我们只能自己利用vba写个可用的函数。

2.2．ALT+F11或 工具/宏/visual basic editor/ ,插入模块 考入以下函数

Function N10to2(ByVal b As Long) As String  'This function was got from internet.

       Dim a As Long

       Dim a1 As String

       Dim s As String

     Do

        a = b Mod 2

            a1 = CStr(a)

        s = a1 & s

        b = b / 2

     Loop Until b = 0

     N10to2 = s

  End Function

 

Function DECto2(ByVal b, ByVal c As Long) As String  'wrote by myself

       Dim a1 As String

       Dim s As String

       Dim T As Double

       T = CDec(b)

     Do

        T = T * 2#

            a1 = CStr(T)

          If T > 1 Then

          T = T - 1

          s = s & "1"

          Else

          s = s & "0"

          End If

        c = c - 1

     Loop Until c <= 0

     DECto2 = s

  End Function

3.将浮点数拆成整数部分和小数部分。分别利用上面的两个函数，前一个用于将整数部分转化成二进制字符串，后一个函数用于将小数部分转化成二进制字符串。

4。将符号，指数，尾数三个部分合成成一个完整的二进制数