[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

Kürzen eines Bruches / zweier Ganzzahlen

Sprache / Programm: VBA ab Office 95
Beschreibung

Kürzt zwei Ganzzahlen = Teilt durch deren größten gemeinsamen Teiler.

VBA-Quelltext
Public Sub Kürzen(ByRef A, ByRef B)
    Dim Rest As Long, TempA As Long, TempB As Long
    If IsNumeric(A) And IsNumeric(B) Then
        If A = 0 Or B = 0 Then Exit Sub
        If A <> Int(A) Or B <> Int(B) Then Exit Sub
   
        TempA = Abs(A)
        TempB = Abs(B)

    Do
        Rest = TempA Mod TempB
        TempA = TempB
        TempB = Rest
    Loop While (Rest <> 0)
       
        A = A / TempA
        B = B / TempA
    End If
End Sub
Argumente der Funktion/Prozedur

A

Beliebige Ganzzahl. Wird als Referenz übergeben und direkt verändert.

B

Beliebige Ganzzahl. Wird als Referenz übergeben und direkt verändert.

Hinweis

In Abfragen muß die Funktion ggT verwendet werden.

Anwendungsgebiete, Fehler und Warnungen

Funktioniert nur bei Variablen, die in VBA dimensioniert wurden.