Office: Division mit Rest

Hallo,

ich habe zum testen ein kleines Program geschrieben mit "/" und mit "mod".

Private Sub cmdStart_Click()

Dim Wert As Integer
Dim Divisor As Integer
Dim Ganz As Integer
Dim Rest As Integer

Wert = Cells(8, 4).value
Divisor = Cells(10, 4).value

Ganz = Wert / Divisor
Rest = Wert Mod Divisor

End Sub

das Programm funktioniert, allerdings sind die Ergebnisse manchmal etwas misteriös:
10/9 =1 richtig
10 mod 9 = 1 richtig

alllerdings:

14/9=2 ?????
14 mod 9= 5 richtig

Müsste die Berechnung "14/9" nicht auch "1" ergeben?
Weiss jemand, warum die Division "14/9"das unerwartete Ergebnis von "2" ergibt?
Vielen Dank.

Gruss

Saxopraxo

:)

 

Hallo s...,

Warum unerwartet?

15/9 ist 1,666... und das ist gerundet 2.


Wenn du den ganzzahligen Anteil des Wertes haben möchtest bitte INT(15/9) nutzen.

 

Du überlässt es der Integervariablen, sich einen Wert aus einem Dezimalwert, mit Nachkommastellen zu bilden. Int rundet da, Fix z.B. nicht.

Wenn Du aber eine Ganzzahlendivision willst, verwende gleich den entsprechenden Operator:
Code:

 

ROTFL, neben den interessanten Bemerkungen wie z.B. 10/9=1 kann man auch anmerken:

Die deutsche Sprache ist Freeware, du kannst sie benutzen, ohne dafür zu bezahlen.
Sie ist aber nicht Open Source, also darfst du sie nicht verändern, wie es dir gerade passt.

Obwohl, wer im Glashaus sitzt ...

Sorry, wer soll da Ernst bleiben?

 

Hallo ebs17, hallo Oge,

vielen Dank.
Ihr habt mir weiter geholfen. *Smilie
Jetzt komme ich weiter.

Gruss

Saxopraxo

 

An welcher Universität lernt man so etwas?
Made in Germany ... geht den Bach runter, u.a. durch solche Leistungen.

 

Aus VBA-Sicht war es ja "richtig". Nur hätte dem TE dann auch bewusst sein müssen, warum es "richtig" ist, und dann den Transfer für 14/9 selbst hinbekommen müssen. Daran krankt es noch mehr.

 

Wieso sprecht ihr von Uni?
Lernt man das nicht etwas früher?

 

Nun, ein Gleichheitszeichen hat eine Bedeutung. Wer diese nicht kennt, sollte beim Programmieren, wo ja eigentlich erwartete Prozesse laufen sollen, ganz ganz vorsichtig sein ...

 

Das Gleichheitszeichen hat er definitiv nicht im Code verwendet, sondern nur hier in der Schilderung. Er wollte statt "=" sagen: "ergibt".

Sub Beweis()
MsgBox (10 / 9 = 1)
End Sub

 

PHP:

         1 + 1 = 0 Mod 2
2 + 2 = 0 Mod 4
2 * 2 = 0 Mod 4
3 + 3 = 0 Mod 6
...


 

Das war jetzt nicht konstruktiv *grins