![\"Die](\"..\/tl_files\/images\/Objektkatalog.png\")
<\/a><\/p>\nBild 1: Die VBA-Klasse Math im Objektkatalog<\/p>\n
Ziemlich überschaubar, was uns da geboten wird. Gerade mit zwölf Methoden werden wir beglückt. Wenn es um naturwissenschaftliche oder finanzielle Berechnungen geht, dann bleibt Ihnen nicht erspart, die komplexeren Funktionen selbst in Modulen nachzurüsten und zu programmieren.<\/p>\n
Aber durchlaufen wir einmal das Vorhandene. Zunächst für die einfacheren Methoden…<\/p>\n
Abs<\/b> gibt den Absolutwert<\/b> einer Zahl zurück. Das bedeutet nichts anderes, als dass eine negative Zahl in eine positive verwandelt wird. +13<\/b> und -13<\/b> haben beide den gleichen Absolutwert 13<\/b>.<\/p>\n
Sgn<\/b> ist ähnlich, gibt aber lediglich das Vorzeichen der Zahl zurück. Allerdings nicht als String<\/b>, sondern als Zahl. Jede Zahl größer als 0 ergibt eine 1, jede kleiner als 0 eine -1. Nur bei 0 ist auch der Rückgabewert eine 0. Round<\/b> rundet eine Fließkommazahl auf eine wählbare Anzahl von Nachkommastellen: <\/p>\n Lassen Sie Vorsicht walten, wenn es um das Runden von Zahlen geht, besonders wenn es um Währungsberechungen handelt! Denn dort ist Runden nicht gleich Runden. Mathematisches Runden und kaufmännisches Runden etwa unterscheiden sich. Unterziehen Sie einmal die Zahl 2,465<\/b> einem VBA-Round<\/b>. Als Ergebnis erhalten Sie 2,46<\/b>! Die 5<\/b> am Ende wird also nicht aufgerundet. Für korrektes Runden benötigen Sie daher eine eigene Funktion, die etwa so aussähe:<\/p>\n Hier wird F<\/b> die Zehnerpotenz der Nachkommastellen zugewiesen. Für 2 stünde in der Variablen dann die 100. Das wird mit der übergebenen Zahl No<\/b> multipliziert und 0.5 addiert.<\/p>\n Schließlich wird per CLng<\/b> der Nachkommateil abgeschnitten und das Ergebnis wieder durch den Faktor F<\/b> dividiert. Sie können das im Modul mdlMathe<\/b> der Beispieldatenbank nachvollziehen, indem Sie die Routine TestRound<\/b> aufrufen.<\/p>\n Rnd<\/b> im Verein mit Randomize<\/b> sind keine mathematischen Funktionen im eigentlichen Sinne. Rnd<\/b> erzeugt eine Zufallszahl (Single<\/b>) im Bereich von 0 bis 1. Um andere Wertebereiche für die Zufallszahlen zu generieren, multiplizieren Sie einfach den Rückgabewert mit einem Faktor und\/oder addieren Werte dazu. Beispiel für eine Funktion, die Zufallszahlen im Bereich 10 bis 100 generiert:<\/p>\n Das Randomize<\/b> können Sie auch weglassen. Es initialisiert lediglich den internen Generator von VBA neu, der unter anderem auf der Systemzeit beruht und darauf eine Sequenz ablaufen lässt. Die Gefahr von Wiederholungen ist aber nahezu ausgeschlossen. Mit Sqr<\/b> ermitteln Sie die Quadratwurzel<\/b> einer Zahl. Die Funktion ist weitgehend überflüssig, da das Ergebnis auch über Potenzierung zu erhalten ist:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span> Round (2.4674)\r\n> 2,47<\/pre>\n
Function <\/span>Round2( _\r\n No As Variant<\/span>, _\r\n Dgts As Long<\/span>) _\r\n As Variant<\/span>\r\n Dim <\/span>N As Double<\/span>\r\n Dim <\/span>F As Double<\/span>\r\n F = 10 ^ Dgts\r\n N = 0.5 + No * F\r\n Round2 = CLng(N) \/ F\r\nEnd Function<\/span><\/pre>\nFunction <\/span>Rnd100() As Single<\/span>\r\n Randomize\r\n Rnd100 = 10 + 90 * Rnd()\r\nEnd Function<\/span><\/pre>\n Sqr(10)\r\n 10 ^ 0.5<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t