Numeric function of LibreOffice BASIC, namely Fix(), expands decimal digit?

Question

Sub IntegerSingleDoubleVariables_Sample4
    Dim d   As Double   : d  = 864.197523/7
    Dim dd  As Double   : dd = d - Fix(d)
    MsgBox  "d = 864.197523/7 = &