Makro für Modulo großer(16 stellige) Zahlen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
bei Zahlen, die zu groß für die Funktion MOD sind, aber noch innerhalb der Genauigkeitsgrenzen von Excel liegen (15 Stellen) kannst du so prüfen, ob eine Zahl x durch y teilbar ist:

If (x/y) = INT(x/y) Then

den Rest berechnest du dann so

... = x - y * Int(x/y)

sollte die Anzahl der Stellen die 15 überschreiten, aber kleiner gleich 20 sein (wobei ich mir da nicht genau sicher bin, wo die grenze liegt) könntest du dir noch mit der Funktion CDec behelfen:

dim x as Variant
x = CDec("1234567890123456")
if (x / 13) = int(x / 13) then
msgbox "Durch 13 teilbar"
Else
msgbox "nicht durch 13 teilbar"
end if

die ersten 14 Stellen einer Zahl bekommst du so:

=CDbl(Left(Format(x, "0"), 14))

Gruß Daniel

…Daniel (& Erhard),
allerdings kann die Xl-Fkt MOD (REST) bis zu 14stellige Zahlen verarbeiten, der vbOperator Mod kann ebenso wie VBAs Operator \ (ganzzahlige Division) nur maximal 10stellige Zahlen dividieren, sonst kommt es zum Überlauf. Der vbOperator / kommt mit größeren Zahlen zurecht, weshalb er hier angewendet wdn muss. Die vbFktt Int und Fix können die dann auch zu Ganzzahlen machen, wobei letztere angeraten ist, wenn man auch für negative Dividenden ein Ergebnis analog der vbFkt Mod erzielen will. Mit Int entspricht das Ergebnis in diesem Fall eher dem der XlFkt. In manchen PgmmierSprachen wird deshalb zwischen modulo (mathemat mod) und remainder unterschieden, ansonsten steht mod mal für das Eine, mal das Andere. Mod in Basic-Dialekten (auch VBA) entspricht dabei rem, die Xl-Fkt (math) mod.
Mit der vbFkt CDec wird der nicht-deklarierbare Datentyp Decimal erzeugt. Da dann auch der UDF-Rückgabewert decimal ist, bleibt ein temporäres Negativ-Vorzeichen erhalten, so dass nachfolgd UDF (Trivial-Version) bei Anwendung in einer ZellFml ggf -0 (rote Null) liefert, was dann von Xl nicht als =0 (schwarze Null) gewertet wird. Im VBE wird dieser Unterschied nicht sichtbar. Mit CLng bzw Deklarierung der UDF As Long wird das vermieden:

Function xMod(Dividend, Divisor)
Dim dd, dv As Variant
dd = CDec(Dividend): dv = CDec(Divisor)
xMod = CLng(dd - dv * Fix(dd / dv))
End Function

Eine ZellFml sähe dann so aus: =xMod(A1;16) für eine (16stellige) TextZahl in A1 (remainder 16).
Die mögliche Länge einer der UDF übergebenen TextZahl liegt übrigens über 20 (mind 22). ;-)
🙈 🙉 🙊 🐵 Morhn, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Function BigModulo(TextZahl As String, Divisor As Double) As Double Dim i As Long Dim d As Double For i = 1 To Len(TextZahl) BigModulo = Val(Rest & Mid(TextZahl, i, 1)) If BigModulo > Divisor Then BigModulo = BigModulo - Divisor * Int(Rest / Divisor) End If Next End Function

Beliebteste Forumthreads (12 Monate)

Makro für Modulo großer(16 stellige) Zahlen

43
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

108 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro für Modulo großer(16 stellige) Zahlen

43 Beiträge zum Forumthread Beiträge zu diesem Forumthread

108 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

43
Beiträge zum Forumthread

Beiträge zu diesem Forumthread