OpenOffice.info

Code: Alles auswählen

Function DezimalZahlnBruch(DezimalZahl As Double)
    Dim A, Approx As Double
    Dim Z0 As Long, Z1 As Long, Z2 As Long
    Dim N0 As Long, N1 As Long, N2 As Long
    Dim X0 As Double, X1 As Double, X2 As Double
    
    On Error Resume Next
   
    A = Int(DezimalZahl)
    Z0 = 0: Z1 = 1
    N0 = 1: N1 = 0
    X0 = 1: X1 = (DezimalZahl - A)

    Do
        Z2 = A * Z1 + Z0: Z0 = Z1: Z1 = Z2
        N2 = A * N1 + N0: N0 = N1: N1 = N2
        A = Int(X0 / X1)
        X2 = X0 - A * X1: X0 = X1: X1 = X2
       
        Approx = Z2 / N2
    Loop Until (N2 = 0 Or Approx = DezimalZahl)
    
    XX = fix (Z2/N2)
    YY = Z2 - XX*N2
    
    if XX=0 then 
    DezimalZahlnBruch = YY & "/" & N2
    else 
    DezimalZahlnBruch = XX & " " & YY & "/" & N2
    end if
    
End Function

Code: Alles auswählen

Sub start
	Msgbox DezimalZahlnBruch(0.058)
End Sub

Function DezimalZahlnBruch(DezimalZahl As Double)
    Dim A, Approx As Double
    Dim Z0 As Long, Z1 As Long, Z2 As Long
    Dim N0 As Long, N1 As Long, N2 As Long
    Dim X0 As Double, X1 As Double, X2 As Double
    
    On Error Resume Next
   
    A = Int(DezimalZahl)
    Z0 = 0: Z1 = 1
    N0 = 1: N1 = 0
    X0 = 1: X1 = (DezimalZahl - A)

    Do
        Z2 = A * Z1 + Z0: Z0 = Z1: Z1 = Z2
        N2 = A * N1 + N0: N0 = N1: N1 = N2
        A = Int(X0 / X1)
        X2 = X0 - A * X1: X0 = X1: X1 = X2
       
        Approx = Z2 / N2
    Loop Until (N2 = 0 Or Approx = DezimalZahl)
    
    DezimalZahlnBruch = "Bruch ist: " & Z2 & "/" & N2
 
End Function

Code: Alles auswählen

format(0.25,"# ?/?")

Code: Alles auswählen

Sub InsertFormula()
	oShape = ThisComponent.createInstance("com.sun.star.text.TextEmbeddedObject")
	oShape.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997"

	dim size as new com.sun.star.awt.Size
    size.Height = 2000
    size.Width  = 1000
    oShape.setSize(size)
    
	
	T = ThisComponent.Text
    T.insertTextContent(T.End, oShape, False)
    
	oShape.Model.Formula = "{a} over {b}"
End Sub