---

Dezimalzahl (zb. 0,5) in Bruch (zB. 1:2)
Dezimalzahl (zb. 2) in Bruch (zB. 2:1)
wie macht man das in einen Macro

gruss Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Schau mal hier (aus einem Beitrag von DanielFr.)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

[Diese Nachricht wurde von bgrittmann am 01. Apr. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Komme damit nicht so recht weiter.

 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Wo kommst du nicht weiter?
ggf musst du Prozedur in eine Funktion umschreiben. zB:

Code:

---

Function DezimalZahlinBruch(DezimalZahl As Double) As String
    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
        Debug.Print Approx, Z2, N2
    Loop Until (N2 = 0 Or Approx = DezimalZahl)
   
    DezimalZahlinBruch = CStr(Z2) & ":" & CStr(N2)
   
    On Error GoTo 0

End Function

---

Der Aufruf erfolgt dann über DezimalZahlinBruch(0.5) und einen liefert String zurück.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP