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。将符号,指数,尾数三个部分合成成一个完整的二进制数