数据结构十进制小数转二进制代码vba

以下是 VBA 代码将十进制小数转换为二进制：

Function Dec2Bin(ByVal DecimalNum As Double) As String
    Dim IntNum As Long
    Dim FracNum As Double
    Dim i As Integer
    Dim BinNum As String
    
    ' 分离整数部分和小数部分
    IntNum = Int(DecimalNum)
    FracNum = DecimalNum - IntNum
    
    ' 转换整数部分为二进制
    Do While IntNum > 0
        BinNum = CStr(IntNum Mod 2) & BinNum
        IntNum = IntNum \ 2
    Loop
    
    ' 添加小数点
    BinNum = BinNum & "."
    
    ' 转换小数部分为二进制
    For i = 1 To 15
        FracNum = FracNum * 2
        If FracNum >= 1 Then
            BinNum = BinNum & "1"
            FracNum = FracNum - 1
        Else
            BinNum = BinNum & "0"
        End If
    Next i
    
    Dec2Bin = BinNum
End Function

调用该函数，传入需要转换的十进制小数即可得到对应的二进制字符串。例如：

Sub Test()
    Dim DecimalNum As Double
    DecimalNum = 3.14159
    MsgBox Dec2Bin(DecimalNum)
End Sub

输出结果为：11.001001000011111。