• Home
 · 
• Math/Dates
 · 
• Br¨che k¨rzen bzw. erweitern

Br¨che k¨rzen bzw. erweitern

Br¨che k¨rzen bzw. erweitern

Rate Br¨che k¨rzen bzw. erweitern

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Function BruecheKuerzen(Zaehler As Double, Nenner As Double, _
NewZaehler As Double, NewNenner As Double, Quotient As Double) As Boolean

    Dim a As Double, b As Double, r As Double, q As Long
    a = Zaehler: b = Nenner
    Do
        r = a - Int(a / b) * b
        a = b: b = r
    Loop Until r = 0
    If a < 1 Then
        Quotient = 1 / a
        BruecheKuerzen = False
        'erweitert
    Else
        Quotient = a
        BruecheKuerzen = True
        'gekürzt
    End If
    NewZaehler = Zaehler / a: NewNenner = Nenner / a
    
End Function