Überlauf bei der Multiplikation von ganzen zahlen und die Zuordnung zu Lang

Dies ist eine wirklich seltsame VBA-Marotte. Ich bin erstaunt, ich habe noch nie stieß auf dieses.

Dim x As Long
x = 24 * 60 * 60 ' Overflow
x = 32767 + 1 ' Overflow. 
x = 32768 + 1 ' Works fine!

So wie es aussieht die * und + Operatoren eine ganze Zahl zurück, die in den ersten beiden Beispielen. Sicher genug, in der Hilfe-Datei für die *operator (ähnlich wie für die + operator):

Ergebnis = Zahl1 * Zahl2

[...]

Den Datentyp Ergebnis ist in der Regel die gleiche wie die der Genaueste Ausdruck.

Ihre Literale 24, 60, und 60 sind alle vom Typ Integer standardmäßig, so dass Ihre * (oder +) der Betreiber gibt eine Ganzzahl zurück, die überfließt, weil das Ergebnis größer als 32.767 ist.

Jedoch die wörtliche 32,768 im Dritten Beispiel oben defaults zu Lang (da es zu groß ist, um eine Ganzzahl sein) und so die + gibt eine Lange; kein überlauf.

Hilfe-Datei sagt auch dies:

Wenn [...] der Datentyp Ergebnis ist eine ganze Zahl Variante, dass über seine rechtlichen Bereich [...] Dann Ergebnis ist [...] Umgerechnet auf eine Lange Variante.

Schwerpunkt mir. Nun ist diese kleine Regel klingt wie der gesunde Menschenverstand, und jeder würde davon ausgehen, dass es gilt in Ihrem Fall. Aber deine zahlen sind vom Typ Integer, nicht Variant/Integer, so dass VBA nicht diese Regel anwenden! Macht absolut keinen Sinn für mich, aber das ist, wie es ist, und das ist, was die Dokumentation sagt.

Lösung: stellen Sie eines der Argumente Ihrer * Betreiber ein Typ sein, der präziser als ganze Zahl (z.B. Long) und das problem wird Weggehen.

x = CLng(24) * 60 * 60 ' Result is Long, works fine.

In der Tat, und dies ist wahrscheinlich der Grund, warum ich habe noch nie traf diese Marotte, die ich zur Gewohnheit machen, deklarieren alle meine Integer-Variablen, so Lange statt, es sei denn, es ist ein besonderes Anliegen, dass mit Long statt Integer Probleme mit Speicherverbrauch oder Ausführungszeit (was fast nie der Fall ist). Zugegeben, dies wird nicht helfen, in Fällen, in denen Sie tätig sind, auf Literale kleiner als 32.768 sind, weil Sie standardmäßig Integer-Typ.

Fragen Sie in ein Kommentar was ein Variant/Integer ist. Die Variante ist im Grunde ein container-Typ für alle anderen Daten geben. In dem besonderen Fall, wo Sie es machen enthalten eine Ganzzahl:

Dim a As Variant ' a is now Empty
a = CInt(32767) ' a is now Variant/Integer
x = a + 1 ' works fine

Aber wie oben erwähnt, eine einfache alte Integer löst der overflow-Fehler:

Dim b As Integer
b = 32767
x = b + 1 ' overflow