Office: (Office 2010) Automatisch Differenz zwischen zwei zahlen ermitteln

Hi Folks !

Gibt es in VBA vielleicht eine Funktion, mit deren Hilfe ich die Differenz zwischen zwei zahlen auslesen kann und mir diese von der Funktion zurückgegeben wird? Die beide in Frage kommenden Zahlen würden dann als Parameter übergeben werden.

Best Greetz
Felix

:)

 

Hallo,
die einfachst Funktion ist diese:
Code:

Als Steuerelementinhalt eines Formularfeldes.
Warum willst Du da eine Funktion?

Trotzdem, hier als Funktion:

Code:

Aufruf als Steuerelementinhalt:
Code:

Falls Null (=Nix) in einem Feld vorkommen kann, sind weitere Maßnahmen erforderlich.

 

Hi !

Naja, es geht mir in erster Linie darum, auch sicherzustellen, ob auch tatsächlich die größere Zahl minus der kleineren gerechnet wird und niemals umgekehrt.

Daher meine Frage, ob das bereits in Access VBA implementiert wurde?

Greetz
Felix

 

Hallo Felix,

dann müssen wir die Funktion von Klaus etwas erweitern:
Code:

HTH

 

Hallo,

Und warum schreibst Du das nicht gleich?*rolleyes.gif*

Das geht auch ohne Funktion.

Code:

 

Hallo
ich weiss nicht ob das wichtig ist
doch so weiss man nicht ob es eine Negative oder Positive Differenz ist.
aus der Frage kann man es nur schlecht erraten *wink.gif*

z.B.bei DateDiff weiss man das
DateDiff("d",Date-2,date) gibt 2
DateDiff("d",Date,date-2) gibt -2

 

Hallo,
es geht ja um Zahlen und nicht um ein Datum.
Und wenn immer die kleinere Zahl von der größeren Zahl abgezogen werden soll, ist das Ergebnis immer positiv.

 

Hallo
Klaus
Du hast recht ersag ja
größere Zahl minus der kleineren Zahl
Sorry ich habe gedacht es müsse auch umgekehrt gehen *frown.gif*

 

Dann sollte man eventuell vorher überprüfen, welche von beiden zahlen die größere ist

Code:

oder habe ich da was falsch verstanden?

 

Hallo Ralf,

das war auch spontan mein erster Ansatz.

Dann ist mir aber klar geworden, dass sich die Subtraktionsergebnisse nur durch ihr Vorzeichen unterscheiden:
12 - 7 = 5
7 - 12 = -5

Durch den Einsatz der Abs-Funktion kann ein eventuelles negatives Vorzeichen bereinigt werden und man erhält das gewünschte Ergebnis:
Abs(12 - 7) = 5
Abs(7 - 12) = 5

Die Prüfung, welche Zahl die größere ist, kann man sich auf diesem Weg also sparen.

CU

 

ups*eek.gif* *biggrin.gif*