<\/p>\n
Lernen Sie die mathematischen Funktionen von VBA kennen.<\/p>\n
VBA, mathematische Funktionen<\/p>\n
Access 97 und höher<\/p>\n
Roland Grothe, Hanau, und André Minhorst, Duisburg<\/b><\/p>\n
„Mathe! – Gut, dass ich damit seit der Schulzeit (seit dem Studium) nichts mehr zu tun habe!“ – das denken jetzt möglicherweise einige Leser. Früher oder später holt einen diese Zeit wieder ein, denn auch wenn die trigonometrischen Funktionen von VBA eher selten zum Einsatz kommen dürften, gibt es durchaus interessante Kandidaten: Oder behauptet da irgendjemand, er habe noch nie beispielsweise eine Zufallszahl ermitteln müssen<\/b><\/p>\n
In diesem Beitrag stellen wir Ihnen die mathematischen Funktionen von VBA vor. Wenn auch die meisten dieser Funktionen nur in recht speziellen Anwendungen zum Einsatz kommen werden, sind doch einige darunter, die Ihnen auch bei der Lösung ganz „normaler“ Entwicklerprobleme hilfreich zur Seite stehen.<\/p>\n
Mathematische Funktionen sind prinzipiell nichts anderes als eine für den Anwender vereinfachte Form der Eingabe komplizierter Berechnungen. <\/p>\n
Durch die Verwendung der eingebauten mathematischen Funktionen werden Ihre Anwendungen übersichtlicher und Ihre Gedankengänge bei der Entwicklung auch für andere Benutzer nachvollziehbar. Tab. 1 zeigt in einer übersicht die in diesem Beitrag besprochenen Funktionen.<\/p>\n
Anzumerken ist dabei, dass die englischen Funktionen in VBA und SQL und die deutschen Varianten beispielsweise im Abfrageentwurf, im Ausdruckseditor oder in Eigenschaften von Datenbankobjekten oder Steuerelementen zum Zuge kommen.<\/p>\n
Um Ihnen das Ausprobieren der hier beschriebenen Funktionen zu erleichtern, enthält die Beispieldatenbank das Formular frmBeispielmathematischeFunktionen, in dem Sie eigene Parameter zuweisen und sich die jeweiligen Resultate aller Funktionen ansehen können. überschreiben Sie dazu einfach die vorgegebenen Werte in den Eingabefeldern. <\/p>\n
Diese oft auch als trigonometrische oder Kreisfunktionen bezeichneten Funktionen stellen in der elementaren Geometrie die Seitenverhältnisse in einem rechtwinkligen Dreieck dar.<\/p>\n
Alle Funktionen erwarten als Parameter einen Zahlenwert, der entweder einen Winkel im Bogenmaß (Sin(), Cos(), Tan()) oder das Verhältnis zweier Seiten des Dreiecks (Atn()) angibt. <\/p>\n
| \n Funktion (englische Bezeichnung)<\/b><\/p>\n<\/td>\n | \n Funktion (deutsche Bezeichnung)<\/b><\/p>\n<\/td>\n | \n Ergebnis\/Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n Sin(Zahl)<\/p>\n<\/td>\n Sin(Zahl)<\/p>\n<\/td>\n Sinus des Winkels Zahl (im Bogenmaß) <\/p>\n<\/td>\n<\/tr>\n Cos(Zahl)<\/p>\n<\/td>\n Cos(Zahl)<\/p>\n<\/td>\n Kosinus des Winkels Zahl (im Bogenmaß)<\/p>\n<\/td>\n<\/tr>\n Tan(Zahl)<\/p>\n<\/td>\n Tan(Zahl)<\/p>\n<\/td>\n Tangens des Winkels Zahl (im Bogenmaß)<\/p>\n<\/td>\n<\/tr>\n Atn(Zahl)<\/p>\n<\/td>\n ArcTan(Zahl)<\/p>\n<\/td>\n ArkusTangens des Winkels Zahl (Ergebnis im Bogenmaß)<\/p>\n<\/td>\n<\/tr>\n Abs(Zahl)<\/p>\n<\/td>\n Abs(Zahl)<\/p>\n<\/td>\n Absolutwert des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n Exp(Zahl)<\/p>\n<\/td>\n Exponential(Zahl)<\/p>\n<\/td>\n Exponentialwert des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n Log(Zahl)<\/p>\n<\/td>\n Logarithmus(Zahl)<\/p>\n<\/td>\n Natürlicher Logarithmus des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n Int(Zahl)<\/p>\n<\/td>\n Int(Zahl)<\/p>\n<\/td>\n Nächstkleinere Ganzzahl des Arguments Zahl <\/p>\n<\/td>\n<\/tr>\n Fix(Zahl)<\/p>\n<\/td>\n Fix(Zahl)<\/p>\n<\/td>\n Ganzzahliger Anteil des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n Rnd(Zahl)<\/p>\n<\/td>\n ZZG(Zahl)<\/p>\n<\/td>\n Zufallszahl. Das optionale Argument Zahl bestimmt, wie die Zufallszahl ermittelt wird.<\/p>\n<\/td>\n<\/tr>\n Sgn(Zahl)<\/p>\n<\/td>\n Vorzchn(Zahl)<\/p>\n<\/td>\n Vorzeichen des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n Sqr(Zahl)<\/p>\n<\/td>\n QWurzel(Zahl)<\/p>\n<\/td>\n Quadratwurzel des Arguments Zahl<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Mathematische Funktionen und ihre Beschreibung<\/b><\/p>\n <\/b><\/p>\n<\/table>\n Bild 1: In der Beispieldatenbank sehen Sie die Ergebnisse aller in diesem Kapitel behandelten Funktionen.<\/span><\/b><\/p>\n Die Funktion berechnet aus einem Winkel das Längenverhältnis der dem Winkel gegenüberliegenden Seite (Gegenkathete) zu der Hypothenuse (längste Seite) eines rechtwinkligen Dreiecks. Als Parameter muss der Winkel im Bogenmaß angegeben werden. Steht eine Winkelangabe nur in Grad zur Verfügung, muss diese zuvor in das Bogenmaß umgerechnet werden. Die Formel dazu lautet folgendermaßen:<\/p>\n Dabei ist Pi eine mathematische Konstante mit dem Näherungswert 3,1415926535897932. Statt diese Konstante direkt im Code anzugeben, kann man sie auch mit folgender Funktion berechnen lassen:<\/p>\n Um in einem berechneten Steuerelement (siehe Bild 1) beispielsweise den Sinus eines Winkels, dessen Größe in einem Formularfeld txtWinkelB definiert ist, zu berechnen, verwenden Sie folgende Syntax für die Eigenschaft Steuerelementinhalt:<\/p>\n Statt eines direkten Feldbezugs kann auch ein komplexerer Ausdruck an die Funktion übergeben werden.<\/p>\n Dies ist zum Beispiel dann notwendig, wenn die Winkelangabe nur in Grad verfügbar ist, wie in folgendem Beispiel:<\/p>\n Das Ergebnis ist ein Wert des Datentyps Double im Bereich von -1 bis 1.<\/p>\n Der Cosinus ist die Gegenfunktion des Sinus und liefert das Längenverhältnis der dem Winkel anliegenden Seite (Ankathete) zu der Hypothenuse eines rechtwinkligen Dreiecks.<\/p>\n <\/p>\n Auch hier ist als Parameter der Winkel im Bogenmaß anzugeben: <\/p>\n Das Ergebnis ist ein Wert des Datentyps Double im Bereich von -1 bis 1.<\/p>\n Der Tangens liefert das Längenverhältnis der dem Winkel gegenüberliegenden Seite (Gegenkathete) zu der dem Winkel anliegenden Seite (Ankathete) eines rechtwinkligen Dreiecks.<\/p>\n Auch hier muss als Parameter der Winkel im Bogenmaß angegeben werden:<\/p>\n Das Ergebnis ist ein Wert des Datentyps Double, wobei der Wert im Bereich der Winkel 90° und 270° extrem groß wird.<\/p>\n Der Arkustangens ist die Umkehrfunktion der Funktion Tan() und berechnet aus dem Längenverhältnis der dem Winkel gegenüberliegenden Seite (Gegenkathete) zu der dem Winkel anliegenden Seite (Ankathete) eines rechtwinkligen Dreiecks dessen Winkel im Bogenmaß:<\/p>\n Das Ergebnis ist ein Wert des Datentyps Double zwischen -Pi\/2 und Pi\/2.<\/p>\n Um das Ergebnis dieser Funktion in einen Winkel mit der Einheit Grad umzurechnen, verwenden Sie folgende Formel: <\/p>\n Diese beiden Funktionen erlauben die Berechnung des natürlichen Logarithmus einer Zahl zur Basis e (Logarithmus()) beziehungsweise als Umkehrfunktion die Konstante e, potenziert mit der als Parameter übergebenen Zahl (Exponential()).<\/p>\n So liefert der Ausdruck <\/p>\n als Ergebnis den Wert 2.30258509299405, während <\/p>\n den Wert 10 zurückgibt.<\/p>\n Manchmal wird jedoch nicht der natürliche Logarithmus, sondern der Logarithmus zu einer beliebigen anderen Basis, beispielsweise 10, benötigt. Dieser Wert errechnet sich aus dem folgenden Ausdruck, der den natürlichen Logarithmus der übergebenen Zahl durch den Logarithmus der gewünschten Basis dividiert:<\/p>\n Die Zahl e ist die Basis des natürlichen Logarithmus und wird oft auch als Euler“sche Zahl bezeichnet. Sie hat ungefähr den Wert 2,718282. Um Laufzeitfehler (überlauf) zu vermeiden, sollten Sie darauf achten, dass die Werte für den Parameter Zahl den mathematischen Anforderungen an die Funktionen gerecht werden. Bei der Funktion Logarithmus() sind alle numerischen Ausdrücke erlaubt, die einen Wert größer 0 haben. Die Funktion Exponential() erwartet einen beliebigen numerischen Ausdruck, der allerdings den Wert 709,78271283 nicht überschreiten darf.<\/p>\n Diese Funktion berechnet die Quadratwurzel einer Zahl und liefert diese als Wert des Datentyps Double zurück. Der englische Name der Funktion leitet sich aus dem englischen Begriff „square root“ ab.<\/p>\n Um beispielsweise die Quadratwurzel aus 2 zu „ziehen“, verwenden Sie die folgende Syntax:<\/p>\n Das Ergebnis dieses Ausdrucks ist etwa die Zahl 1,4142.<\/p>\n Mit der eingebauten Wurzelfunktion kann lediglich die Quadratwurzel (auch zweite Wurzel genannt) einer Zahl berechnet werden. Um Wurzeln höherer Ebenen zu ziehen, müssen Sie den Wert mit dem Kehrwert der gewünschten Ebene potenzieren. Um beispielsweise die dritte Wurzel aus 125 zu ziehen, verwenden Sie den folgenden Ausdruck:<\/p>\n Als Parameter erlaubt die Funktion jeden numerischen Ausdruck, der größer oder gleich 0 ist.<\/p>\n Diese einfache Funktion erwartet als Parameter einen beliebigen numerischen Wert und liefert einen Wert des gleichen Datentyps zurück. Dieser Wert entspricht dem Betrag des übergebenen Wertes, also der Zahl ohne Vorzeichen.<\/p>\n So liefern beispielsweise sowohl<\/p>\n als auch<\/p>\n den numerischen Wert 12 zurück. <\/p>\n Diese Funktion lässt sich sehr gut als automatische Eingabekontrolle verwenden, um sicherzustellen, dass der Anwender nur positive (oder negative) Werte in ein Feld eingibt. Bei einer Reisekostenabrechnung weiß der Anwender beispielsweise oft nicht, ob er das Feld Spesen als negativen oder positiven Wert eingeben muss. Da das richtige Vorzeichen für die Berechnung jedoch entscheidend ist, können Sie das Feld txtSpesen mit dem Ausdruck<\/p>\n als positiven beziehungsweise mit<\/p>\n als negativen Wert fest definieren, ohne dass der Anwender davon etwas merkt.<\/p>\n Manchmal ist es erforderlich, lediglich das Vorzeichen einer Zahl zu kennen. Diese Information liefert die Funktion VorZchn(). Sie erwartet als Parameter Zahl einen beliebigen numerischen Wert und liefert je nach dessen Vorzeichen die Werte aus Tab. 2 als Datentyp Integer zurück.<\/p>\n Zahl<\/b><\/p>\n<\/td>\n Rückgabewert<\/b><\/p>\n<\/td>\n<\/tr>\n > 0<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n<\/tr>\n < 0<\/p>\n<\/td>\n -1<\/p>\n<\/td>\n<\/tr>\n = 0<\/p>\n<\/td>\n 0<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Rückgabewerte der Funktion Vorzchn()<\/b><\/p>\n So liefert beispielsweise der Ausdruck<\/p>\n den Wert -1 zurück.<\/p>\n Diese Funktionen sind fast identisch. Beide erwarten als Parameter einen beliebigen numerischen Ausdruck und liefern den ganzzahligen Anteil dieses Wertes zurück. Der zurückgelieferte Wert hat dabei den gleichen Datentyp wie der Parameterwert.<\/p>\n So liefert beispielsweise der Ausdruck<\/p>\n den Wert 235 zurück. Hat der Parameter den Wert Null, ist auch das Ergebnis der Funktion Null. Der Unterschied zwischen den Funktionen Fix() und Int() zeigt sich nur bei der Berechnung negativer Werte.<\/p>\n Während Fix() lediglich die Nachkommastellen abschneidet und damit aus<\/p>\n den Wert -235 ermittelt, liefert Int() grundsätzlich die nächstkleinere Zahl zurück. Das Resultat von<\/p>\n ist demnach -236.<\/p>\n Eine häufig benötigte Anwendung ist die permanente Rundung eines Rechenergebnisses auf eine bestimmte Anzahl Nachkommastellen. <\/p>\n Dies ist stets dann notwendig, wenn beispielsweise ein Betrag nicht nur mit zwei Stellen nach dem Komma angezeigt, sondern auch später nur mit diesen zwei Stellen gerechnet werden soll. Der Ausdruck<\/p>\n multipliziert den Wert erst einmal mit dem Faktor 100, bildet daraus den Integerwert und dividiert dieses Ergebnis wiederum durch 100.<\/p>\n Resultat dieser Berechnung ist ein Wert mit maximal zwei Nachkommastellen, der allerdings noch nicht korrekt aufrundet. Dieses Problem lösen Sie durch die Addition von 0,5, bevor der Integerwert gebildet wird. Der Ausdruck<\/p>\n berücksichtigt nun auch dieses Problem. Um auf eine andere Anzahl Kommastellen zu runden, verändern Sie lediglich den Multiplikationsfaktor. Dieser beträgt 10n, wobei n die Anzahl der gewünschten Kommastellen darstellt. <\/p>\n n kann übrigens auch negativ sein, um Rundungen vor dem Komma zu erzeugen.<\/p>\n Die in Access eingebauten Funktionen beschränken sich auf einige wenige, häufiger verwendete Funktionen.<\/p>\n Mehr ist allerdings auch nicht notwendig, da sich alle mathematischen Funktionen aus Berechnungen anderer Funktionen ableiten lassen.<\/p>\n Mehr dazu finden Sie in der Online-Hilfe unter dem Stichwort „abgeleitete mathematische Funktionen“ (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: Eine übersicht einiger abgeleiteter mathematischer Funktionen finden Sie in der VBA-Referenz.<\/span><\/b><\/p>\n Mit dieser Funktion stellt Access dem Anwender den Zugriff auf den internen (Pseudo-)Zufallszahlengenerator zur Verfügung.<\/p>\n ZZG() liefert, abhängig vom Parameter Zahl, einen Wert, der größer oder gleich 0, aber kleiner als 1 ist.<\/p>\n Es handelt sich dabei deshalb um einen Pseudozufallszahlengenerator, weil die generierte Zahl von einem Startwert abhängt und daher auch nicht zufällig erzeugt wird.<\/p>\n Dieser Startwert kann der Funktion ZZG() als optionaler Parameter Zahl übergeben werden, wobei die Werte aus Tab. 3 möglich sind.<\/p>\n Zahl<\/b><\/p>\n<\/td>\n Zufallszahl<\/b><\/p>\n<\/td>\n<\/tr>\n <0<\/p>\n<\/td>\n Immer die gleiche Zahl, die sich aus dem Startwert Zahl ergibt<\/p>\n<\/td>\n<\/tr>\n >0<\/p>\n<\/td>\n Eine Zufallszahl, die als Startwert die zuletzt erzeugte Zufallszahl verwendet<\/p>\n<\/td>\n<\/tr>\n =0<\/p>\n<\/td>\n Die gleiche Zahl wie beim letzten Aufruf der Funktion<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 3: Mögliche Startwerte der Funktion ZZG()<\/b><\/p>\n Lassen Sie den Parameter Zahl weg, verhält sich die Funktion als sei Zahl ein positiver Wert.<\/p>\n Um ganzzahlige Zufallszahlen innerhalb eines bestimmten Bereichs zu erzeugen, muss das Ergebnis der ZZG()-Funktion mit dem Ausdruck <\/p>\n bearbeitet werden, wobei Max die größte und Min die kleinste Zahl des zulässigen Bereichs darstellt.<\/p>\n Auf der Registerkarte ZZG() des Beispielformulars finden Sie eine Schaltfläche Würfeln, die das Formular frmWürfel aufruft. Einziges Steuerelement dieses Formulars ist ein Textfeld, dessen Inhalt beim öffnen des Formulars berechnet und zugewiesen wird. Der Ausdruck <\/p>\n liefert einen Zufallswert zwischen 1 und 6 und simuliert somit das Rollen eines Würfels. Sie finden ihn in der Ereigniseigenschaft Beim öffnen des Formulars frmWürfel (siehe Bild 3).<\/p>\n Da diese Codezeile aus dem Formularmodul des Formulars frmWürfel stammt, muss der Funktionsname ZZG in diesem Fall durch das englische Equivalent Rnd() ersetzt werden.<\/p>\n Vielleicht ist Ihnen aufgefallen, dass die Würfelfolge nach jedem neuen Start von Access völlig identisch ist. Dies liegt daran, dass die Funktion ZZG() beim ersten Aufruf immer den gleichen Startwert verwendet und daher immer die gleiche Zufallszahl erzeugt.<\/p>\n Da diese wiederum als Startwert für die nächste Zufallszahl verwendet wird, ist die gesamte Folge immer wieder gleich.<\/p>\n Um dies zu verhindern, stellt Access die Anweisung Randomize zur Verfügung, die den Zufallsgenerator mit dem aktuellen Wert des Zeitgebers initialisiert.<\/p>\n Dieser Wert verändert sich jede Millisekunde, sodass es unmöglich ist, den Startwert manuell zu beeinflussen.<\/p>\n In der Beispieldatenbank erfolgt dieser Aufruf in der Ereignisprozedur Beim öffnen des Formulars frmWürfel vor der Berechnung der Zufallszahl.<\/p>\n <\/b><\/p>\n Bild 3: Der gesamte Code des öffnen-Ereignisses besteht aus zwei Zeilen.<\/span><\/b><\/p>\n Es ist zwar generell möglich, auch der Anweisung Randomize einen festgelegten Startwert zu übergeben. Dies macht allerdings nicht viel Sinn, da so die Komponente „Zufall“ ausgeschaltet wird.<\/p>\n","protected":false},"excerpt":{"rendered":" „Mathe! – Gut, dass ich damit seit der Schulzeit (seit dem Studium) nichts mehr zu tun habe!“ – das denken jetzt möglicherweise einige Leser. Früher oder später holt einen diese Zeit wieder ein, denn auch wenn die trigonometrischen Funktionen von VBA eher selten zum Einsatz kommen dürften, gibt es durchaus interessante Kandidaten: Oder behauptet da irgendjemand, er habe noch nie bei-spielsweise eine Zufallszahl ermitteln müssen<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662006,66032006,44000025],"tags":[],"class_list":["post-55000351","post","type-post","status-publish","format-standard","hentry","category-662006","category-66032006","category-VBA_und_Programmiertechniken"],"yoast_head":"\n |
![](\"..\/fileadmin\/_temp_\/{1C2225E3-FD1C-4041-8D50-983FD33DF979}\/pic001.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{1C2225E3-FD1C-4041-8D50-983FD33DF979}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{1C2225E3-FD1C-4041-8D50-983FD33DF979}\/pic003.png\")
<\/p>\n