by Ascher Stefan (8 Submissions)
Category: Math/Dates
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Mon 7th June 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Br¨che k¨rzen bzw. erweitern
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