| Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 26.11.04 |
 ProvisionsberechnungEin kleines Beispiel, wie man Provisionen berechnen kann. | ||
Autor:  Matthias Schnellbacher | Bewertung:   | Views: 12.088 |
| ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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
