PROZENTRECHNUNG

Public Function von_hundert(Wert As Double, Prozent As Double)
    von_hundert = Wert * Prozent
End Function

Public Function auf_hundert(Wert As Double, Prozent As Double)
    auf_hundert = Wert * Prozent / (1 + Prozent)
End Function

Public Function in_hundert(Wert As Double, Prozent As Double)
    in_hundert = Wert * Prozent / (1 - Prozent)
End Function