利用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。將符號，指數，尾數三個部分合成成一個完整的位元