Vertriebsvergütung können viele verschiedene Möglichkeiten, je nach Branche und dem Unternehmen strukturiert werden. Die Durchführung dieser Berechnung innerhalb einer Visual Basic-Programm ist schnell und effizient . VB bietet eine Reihe von Möglichkeiten , um eine Schleife durch eine Reihe von Daten , die Verarbeitung jedes Einzelteil eins nach dem anderen, bis zum Ende. Das Programm kann alle die Eingabe aus einer Datei oder Datenbank , Looping durch die Daten einen Datensatz zu einem Zeitpunkt. Die Ergebnisse können entweder in einer Datenbank-Tabelle zur späteren Generation Bericht eingefügt werden , in eine Datei geschrieben oder per E-Mail an einen Vorgesetzten. Anleitung
1

Öffnen Sie eine Verbindung entweder zu einer Datenbank oder einer externen Datei , um den Eingang für Ihre Visual Basic-Anwendung abzurufen. Sie müssen Variablen vom Typ double , um die Provision , Gehalt, Provision und Umsatzzahlen für den laufenden Monat halten zu definieren.
2

Schleife durch die Informationen mit einem " Do While "-Schleife . Wenn Abrufen Eingang aus einer Datenbank , "Do While Not rstSalesData.EOF " die Befehle, die diese Anweisung folgen bis zum Ende des Recordsets erreicht worden ausführen wird .
3

Rufen Sie die Mengen notwendig für die Provisionsabrechnung . Ein typischer Auftrag könnte sein, dass der Verkäufer 10 Prozent des Umsatzes über $ 10.000 und 5 Prozent vom Umsatz erhält weniger als 10.000 Dollar. Rufen Sie zunächst die Umsätze für den Monat in den Verkauf Variablen und der Gehalt in den Gehalt variabel. Wenn die Menge mehr als $ 10.000 , wird die Provision 5 Prozent. Stellen Sie die Rate Variable gleich 0,05 und der Umsatz Variable gleich der Höhe des Umsatzes , 4700 $ zum Beispiel.
4

Berechnen Sie die Kommission , indem sie die Verkäufe variablen Zeiten die Provision rate.dCommission = dSales * dRate.Get die Lohnsumme für den Monat , indem Sie " dCommission " zum Gehalt Variable " dSalary . " Format " dSalary " auf zwei Dezimalstellen , um eine genaue Dollar-Betrag zu erhalten.
5 < p> Beenden Sie die Schleife mit "Loop" . Das endgültige Programm Code sollte wie folgt aussehen : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( "Sales " ) valueIf dSales < 10000 ThendRate = .05 ElsedRate = .10 End IfdSalary = rstSalesData.fields ( "Gehalt " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ), 2) ' Code hinzufügen sie hier, um die Datenbank mit dSalary aktualisieren oder schreiben Sie es auf eine filerstSalesData.MoveNextLoopThe Zeile, die mit einem Apostroph beginnt , ist ein Kommentar in Visual Basic. Dies ist, wo eine Funktion hinzugefügt könnte entweder retten " dSalary " in eine Datei oder auf die Datenbank , bevor Sie mit dem nächsten Datensatz werden.