Provisionsberechnung Ein kleines Beispiel, wie man Provisionen berechnen kann.
Autor:   Matthias Schnellbacher	Bewertung:     [ Jetzt bewerten ]	Views:  12.563
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Anbei mal ein Beispiel, wie man Provisionen berechnen kann.

Sub Provision()
  On Error Resume Next
 
  ' Deklaration der Variablen
  Dim vEingabe As Double        ' vEingabe entspricht dem Monatsumsatz
  Dim vProvision As Double      ' vProvision ist der Provisionssatz
 
  ' Inputbox für die Eingabe des Monatsumsatzes
  vEingabe = CSng(InputBox(" Geben Sie Ihren Monatsumsatz ein !", _
    " Provisionsermittlung", "0", 5000, 5000))
 
  ' Die Funktion "Abs" gibt einen Wert zurück, der den gleichen Typ wie der
  ' übergebene Wert hat und den Absolutwert einer Zahl angibt.
  ' Siehe hierzu auch die Befehlsreferenz im vb@archiv ;-)
  vEingabe = Abs(vEingabe)
 
  Select Case vEingabe
    ' Bei exakt 100, im Bereich zwischen 250 und 500 und bei exakt 1000 wird der
    ' zugewiesene Provisionssatz ( 1,0 % ) gerechnet,
    ' ansonsten aus den weiteren Bereichen gezogen !!!
    Case 100, 250 To 500, 1000
      vProvision = 1#
    Case Is < 10000
      ' 2,5 % wenn Monatsumsatz kleiner als 10.000 und nicht 100 od. 250 - 500 oder 1000
      vProvision = 2.5
    Case Is < 25000
      ' 3,6 % wenn Monatsumsatz kleiner als 25.000 aber größer als 10.000 und nicht ...
      vProvision = 3.6
    Case Is < 50000
      ' 4,7 % wenn Monatsumsatz kleiner als 50.000 aber größer als 25.000 und nicht ...
      vProvision = 4.7
    Case Is >= 50000
      ' 5,8 % wenn Monatsumsatz größer oder gleich 50.000 und nicht ...
      vProvision = 5.8
  End Select
 
  ' Ausgabe des berechneten Provisionswertes und des ermittelten Provisionssatzes
  ' Die Formel für die Berechnung lautet vEingabe (=Monatsumsatz) multiliziert
  ' mit vProvision (=ermittelter Provisionssatz) dividiert durch 100
  MsgBox (" Die Provision beträgt " + CStr(vEingabe * vProvision / 100) + _
    " €   bei  " + CStr(vProvision) + " %")
End Sub