Tilpasset decimalvisning

' Returns the mantissa of a decimal number as
' a string to preserve leading zeroes.
'
' Examples:
'   Mantissa(1234.56789)            -> "56789"
'   Mantissa(-1234.56789)           -> "56789"
'   Mantissa(1234.056789)           -> "056789"
'   Mantissa(-1234.056789)          -> "056789"
'   Mantissa(123456789)             -> ""
'   Mantissa(CDec(1) / CDec(11))    -> "0909090909090909090909090909"
'
' 2024-03-23. Gustav Brock, Cactus Data ApS, CPH.
'
Public Function Mantissa( _
    ByVal Number As Variant) _
    As String

    Dim Result      As String
    Dim Fraction    As Variant
    
    If IsNumeric(Number) Then
        Fraction = CDec(Number) - CDec(Fix(Number))
        
        If Fraction <> 0 Then
            ' Strip leading space and dot.
            Result = Mid(Str(Abs(Fraction)), 3)
        End If
    End If
    
    Mantissa = Result
    
End Function