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 Dieser Tipp wurde bereits 12.342 mal aufgerufen.
Anzeige
![]() ![]() ![]() Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 ![]() Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |