Benutzung auf eigene Gefahr ! |
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 |
|
Hinweis |
In Abfragen muß die Funktion ggT verwendet werden. |
Anwendungsgebiete, Fehler und Warnungen |
Funktioniert nur bei Variablen, die in VBA dimensioniert wurden. |