Mod mit Doppel

Mache ich etwas falsch oder funktioniert der VBA-Mod-operator eigentlich nicht mit floating-point-Werte wie Verdoppelt?

So habe ich immer irgendwie davon ausgegangen, dass die VBA-Mod-operator funktionieren würde mit Doppel-auf der Grundlage der VB-Dokumentation, aber beim Versuch, herauszufinden, warum meine Rundung Funktion funktioniert nicht, ich fand einige unerwartete Mod-Verhalten.

Hier ist mein code:

Public Function RoundUp(num As Double, Optional nearest As Double = 1)
    RoundUp = ((num \ nearest) - ((num Mod nearest) > 0)) * nearest
End Function

RoundUp(12.34) zurück 12 statt 13 also grub ich ein wenig tiefer und fand, dass:

12.5 Mod 1 zurück 0 mit der return-Typ der Lange, in der Erwägung, dass hatte ich erwartet, 0.5 Typs Double.

Abschluss

Als @ckuhn203 weist in seiner Antwort, gemäß VBA-Spezifikation,

Den modulo oder Rest-operator dividiert Zahl1 durch Zahl2
(Rundung von Gleitkommazahlen in Ganzzahlen) und gibt nur die
Rest als Ergebnis.

Und

Normalerweise ist der Datentyp von Ergebnis ist ein Byte, Byte-Variante, Integer,
Integer-Variante, Lang, oder die Variante mit einem Langen, unabhängig von
ob oder nicht, Ergebnis ist eine ganze Zahl. Eine gebrochene Teil ist
abgeschnitten.

Für meine Zwecke, ich brauche eine floating-point-modulo und so habe ich beschlossen, die folgenden:

Public Function FMod(a As Double, b As Double) As Double
    FMod = a - Fix(a / b) * b

    'http://en.wikipedia.org/wiki/Machine_epsilon
    'Unfortunately, this function can only be accurate when `a /b` is outside [-2.22E-16,+2.22E-16]
    'Without this correction, FMod(.66, .06) = 5.55111512312578E-17 when it should be 0
    If FMod >= -2 ^ -52 And FMod <= 2 ^ -52 Then '+/- 2.22E-16
        FMod = 0
    End If
End Function

Hier sind einige Beispiele:

FMod(12.5, 1) = 0.5
FMod(5.3, 2) = 1.3
FMod(18.5, 4.2) = 1.7

Mich Rundung Funktion löst mein besonderes Problem ist.

Finden Sie die akzeptierte Antwort hier, die Ihnen helfen könnten. VBA-mod-operator akzeptiert nur lang/integer. Die akzeptierten Antworten auf die anderen F zeigt die Formel verwendet intern für MOD. Vielleicht können Sie es anpassen.
Danke! Ich hatte gesehen, dass die Frage in meiner sucht, aber ignoriert es, weil die Erwähnung einer "runtime error" - jetzt sehe ich, dass Sie tatsächlich-Adresse der Tatsache, dass die Mod macht Longs 😛
gute Frage, ähm vielleicht ist es, weil double in VBA ist eigentlich eine floating-Nummer daher die Trennung der floating-Nummer wäre nicht wirklich gute Ergebnisse erzielen, wenn multipliziert mit X tausenden.
Andere Vorschläge für eine genauere round-to-nearest-Formel? Für die Größenordnung der zahlen, die ich arbeite, 52 bits ist viel, aber ich würde lieben, um es allgemeiner. Ich glaube, ich könnte machen eine BigNum-Klasse, die Läden (fast) unendliche Genauigkeit von zahlen als text, aber es schien zu viel für das, was ich versuche zu erreichen. Ich habe einmal versucht zu verwenden CopyMemory trick eine Variante zu denken, es war ein Decimal... aber VBA gesagt, nope, nope, nope.
Ich sehe, hm lass mich nachdenken. Ich weiß, in 64bit, die Sie verwenden können, LongLong usw. so einen BIGNUM-Klasse ist nicht unbedingt eine gute Lösung. Vielleicht versucht die native C# wie float.ininity in einer COm-dll wrapper..

InformationsquelleAutor Blackhawk | 2014-05-08

10

Entsprechend der VB6/VBA-Dokumentation

Den modulo oder Rest-operator dividiert Zahl1 durch Zahl2
(Rundung von Gleitkommazahlen in Ganzzahlen) und gibt nur die
Rest als Ergebnis. Zum Beispiel, in den folgenden Ausdruck Ein
(Ergebnis) entspricht 5. A = 19 Mod 6.7 Normalerweise ist der Datentyp von Ergebnis ist
ein Byte, Byte variant Integer Integer variant Long oder Variant
mit einem Langen, unabhängig davon, ob oder nicht, Ergebnis ist eine ganze
Anzahl. Eine gebrochene Anteil wird abgeschnitten. Jedoch, wenn
Ausdruck Null ist, das Ergebnis ist Null. Jeder Ausdruck, der Leer ist
wie 0 behandelt.

Erinnern, mod liefert den Rest der division. Eine ganze Zahl mod 1 = 0.
```
debug.print 12 mod 1 
'12/1 = 12 r 0
```
Der wahre Schuldige hier ist aber, dass vba schneidet (rundet ab) das double zu einem integer - vor Durchführung der modulo.
```
?13 mod 10
 '==>3 
?12.5 mod 10
 '==>2 

debug.print 12.5 mod 1
'vba truncates 12.5 to 12
debug.print 12 mod 1
'==> 0
```
- Jedoch 1 nicht aufteilen in 0.5. 12.5 % 1 0.5. Ich würde Zustimmen, dass jede ganze Zahl Mod 1 = 0
- Das ist nicht wie Mathe funktioniert. x/1 = x. Immer. 0.5/1 = 0.5
- Das ist nicht ganz richtig. Für a Mod b = c -, Ganzzahl-Modulo setzt Voraus, dass a und b werden immer nur ganze zahlen, so dass, Wenn b = 1 dann a = c immer. Aber für Floating-Point-Modulo, kann es anders sein. Zum Beispiel mit 12.5 Mod 1, 1 teilt sich in 12.5 gleichmäßig 12-mal, mit einem Rest von 0,5.
- Hier ist fmod in C++. Hinweis: die Beispiele unten in der Nähe der Unterseite. fmod(5.3,2) = 1.3
- Eigentlich sollte ich sagen, das ist richtig, aber modulo != division
- Das ändert nicht die TATSACHE, dass alles, was geteilt durch ein nicht haben, einen Rest.
- Ich don ' T wollen, ziehen Sie diese nicht mehr, also werde ich Ende mit diesem Punkt: Modulo wird über die integer-division und die Frage nach dem verbleibenden Wert. a Mod b = c ist "b teilt sich gleichmäßig in a x mal mit einem verbleibenden Wert von c" (x, der quotient wird verworfen). Sicherlich 12.5 / 1 = 12.5, aber 12.5 \ 1 = 12 (Integer-division) und 12.5 Mod 1 = 0.5.
- Sorry für ein bisschen flamey : (- und +1 zum aufrufen des aktuellen VBA-Spezifikation 😀
- Ich bin neugierig, was halten Sie von meiner Widerlegung auf die Natur des modulo-operation
- Ich immer noch nicht einverstanden mit Ihrer Behauptung, dass anthing Mod 1 = 0, aber Sie haben das erste und beste (VBA-Spec, booya!) Antwort auf meine eigentliche Frage "Macht die Mod nicht mit Verdoppelt?", also ich bin damit Sie das Häkchen. Vielen Dank für Ihre Hilfe!
- Danke. Ich habe getan, einige der Forschung, und er scheint davon abhängen, wie die mod ist definiert und umgesetzt. Ich habe nie realisiert, dass. Es war lehrreich. Vielen Dank für die Frage.
- Ich möchte Ihnen noch einmal danken. Sind Sie richtig. Wenn dabei die integer-division, 12.5 mod 1 = 0.5 sollte wahr sein. Ich werde wieder kommen, um meine Antwort später heute, um klarzustellen, dass vba/vb6 zu haben scheint implementiert mod in einer seltsamen Art und Weise, dass wurde geändert/korrigiert das .NET-framework.
- Nach dem stochern im internet, es scheint, dass in vielen Sprachen der mod-operator arbeitet nur auf integer-Werte. Ein paar haben getrennte Funktionen wie "fmod" durchführen floating-point-Modul. Noch weniger haben ein mod-operator führt, dass beide. Wikipedia hat eine gute Liste von integer - /floating-point-modulo-Funktionen per Sprache
- lassen Sie uns weiter, diese Diskussion im chat
- als pro Arbeitsblattfunktionen, du hast Recht: =MOD(12.5,1) liefert 0.5
- Ich aktualisiert meine Antwort. Macht das besser Aussehen?
- Sieht toll aus! Vielen Dank für eine sehr ausführliche Antwort 🙂
- Hey @Blackhawk. Ich weiß nicht, ob man den chat auf SE, aber ich dachte, Sie könnten daran interessiert sein. chat.stackexchange.com/rooms/14929/vba
InformationsquelleAutor RubberDuck
4

Ich glaube, dass der Mod-operator berechnet mit langen Typs. Der link, den Sie ist für VB.Net,, das ist nicht das gleiche wie der VBA, die Sie verwenden in MSAccess.

Operator in VBA erscheint, zu akzeptieren einen double-Typ, sondern einfach konvertiert es in eine lange, intern.

Dieser test ergab ein Ergebnis von 1.
```
9 Mod 4.5
```
Dieser test ergab ein Ergebnis von 0.
```
8 Mod 4.5
```
- Vielen Dank für deine Hilfe, Davis!
InformationsquelleAutor Davis
0

Als eine Arbeit um zu tun, einige einfache Berechnungen auf die Werte. Um zwei Dezimalstellen Genauigkeit multiplizieren Sie einfach die input-Werte von 100 und dann teilen Sie das Ergebnis durch 100.
```
result = (123.45*100 Mod 1*100)/100
result = (12345 Mod 100)/100
result = 0.45
```
Ich bin spät zur party, aber nur sofern diese Antwort ist noch jemandem helfen zu können.

InformationsquelleAutor Russell Munro

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.