Verkoopcommissie kan worden gestructureerd op verschillende manieren , afhankelijk van de sector en het bedrijf . Het uitvoeren van deze berekening in een Visual Basic -programma is snel en efficiënt . VB geeft een paar manieren om lus door een set van gegevens , verwerken van elk item een voor een tot het einde . Het programma kan alle input van een bestand of een database , het doorlussen van de gegevens een record tegelijk lezen . De resultaten kunnen zowel in een database tabel worden ingebracht voor later het genereren van rapporten , geschreven naar een bestand of e-mail naar een supervisor . Instructies 1 Open een verbinding met zowel een database of een extern bestand aan de ingang voor uw Visual Basic-toepassing te halen . Moet u variabelen van het type double aan de commissie , salaris , provisie en verkoopcijfers voor de huidige maand te houden definiëren . Lus 2 door de gegevens met behulp van een " Do While " loop . Als het ophalen van input van een databank , " Do While Not rstSalesData.EOF " zal de commando's die deze verklaring volgen tot het einde van de record is bereikt voeren . 3 Ophalen van de bedragen noodzakelijk zijn voor de commissie berekening. Een typische commissie zou kunnen zijn dat de verkoper ontvangt 10 procent van de omzet van meer dan $ 10.000 en 5 procent op de omzet minder dan $ 10.000. Eerst halen het verkoopbedrag voor de maand in de verkoop variabele en het salaris dat in het salaris variabel . Als het bedrag meer dan $ 10.000 , zal de Commissie vastgestelde percentage 5 procent. Stel het percentage variabele gelijk is aan 0,05 en de omzet variabele gelijk is aan het bedrag van de verkoop , $ 4700 bijvoorbeeld . 4 Bereken de commissie door het nemen van de verkoop van variabele tijden de commissie rate.dCommission = dSales * dRate.Get het totale salaris van de maand door de toevoeging " dCommission " om het salaris variabel van " dSalary . " Format " dSalary " tot twee decimalen om een nauwkeurige bedrag in dollars te krijgen . 5 Beëindig de lus met " Loop" . Het definitieve programma code moet er ongeveer zo uitzien : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( " Sales " ) valueIf dSales < 10.000 ThendRate = 0,05 ElsedRate = 0,10 Einde IfdSalary = rstSalesData.fields ( " salaris " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) ' toe te voegen code hier om de database met dSalary actualiseren of schrijf het op een filerstSalesData.MoveNextLoopThe lijn die begint met een apostrof is een commentaar in Visual Basic . Dit is waar een functie zou kunnen worden toegevoegd aan ofwel redden " dSalary " naar een bestand of naar de database voordat u verder gaat naar de volgende record .
|