Gruppe
UDF
Problem
Eine benutzerdefinierte Funktion soll zu vorhandenen Werten die Mehrwertsteuer hinzurechnen bzw. abziehen. Parameter: Wert, Faktor, Wahrheitswert für hinzubzw. abrechnen.
StandardModule: Modul1
Function NetBru( _
Wert As Double, _
Faktor As Double, _
PlusMin As Boolean) As Double
If PlusMin Then
NetBru = Wert + Wert * Faktor
Else
NetBru = Wert / (1 + Faktor)
End If
End Function