Benutzerdefinierte Funktion Nettobetrag

Mit dieser Funktion errechnen Sie auf einfache Weise aus einem Bruttobetrag den Nettobetrag ohne Mehrwertsteuer. Das Ergebnis wird mit einer einfachen Formel auf 2 Dezimalstellen gerundet.

Bei dieser Funktion können Sie zwei Werte angeben, den Nettobetrag und den Steuerprozentsatz.


Public Function NettoMwst(Betrag, Optional SteuerSatz As_
Single = 0.16)

Netto = Betrag / (1 + SteuerSatz)
NettoMwst = (Int(Netto * 100 + 0.5)) / 100

End Function

Der zweite Parameter „SteuerSatz“ ist optional, das heißt, wenn Sie nur den Betrag angeben, dann wird von einem 16%ingen Mehrwertsteuersatz ausgegangen.

Gerundet wird mit einer Formel:
Zunächst wird der Nettobetrag mit 100 multipliziert und ein Wert von 0,5 addiert. Dieser Wert wird mit der Funktion – INT in eine Ganzzahl umgewandelt. Dieser durch 100 dividiert ergibt den korrekt gerundeten Nettobetrag.

Weitere Informationen zur Funktionserstellung finden Sie in der Lektion
VBA-Funktionen