VBA Tipp: Runden in Abfragen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Werte sollen gerundet werden. Diese Funktion läßt sich auch beispielsweise in Abfragen (siehe Beispiel) benutzen

Lösung

Die folgenden Funktionen schließen diese Lücke:

Public Function Runden(Feld, Stellen) As Double
Runden = Fix("" & Feld/Sellen + Sgn(Feld)*0.5) * Stellen
End Function

Aufruf

In einer Abfrage bei Rundung auf 2 Kommastellen:

NeuesFeld:Runden([Rundungsfeld];0,01)

In einer Abfrage bei Rundung auf 1 Kommastelle:

NeuesFeld:Runden([Rundungsfeld];0,1)