Eingene Funktion
07.05.2004 11:24:16
Josef
ich habe folgende Funktion zu Prozentrechnen geschrieben. Ich weiß nur nicht warum es nicht funktioniert. Ich möchte eben auch mit Prozentformatierungen wíe 6% rechnen können oder mit normalen angaben wie 0,06.
Was ist an dieser Funktion falsch.
Public
Function MinusProzent(Grundwert, Prozentsatz)
Dim Prozentwert As Single
If Prozentsatz.IsPercent Then
Prozentsatz.NumberFormat = "##0.00"
Prozentwert = Grundwert * Prozentsatz
MinusProzent = Grundwert - Prozentwert
Else
Prozentwert = Grundwert * Pozentsatz
MinlusProzent = Grundwert - Prozentwert
End If
End Function
Josef