kan Försäljningsprovision struktureras många olika sätt beroende på bransch och företaget . Utföra denna beräkning inom ett Visual Basic-program är snabb och effektiv . VB ger ett par sätt att loopa igenom en uppsättning data , bearbeta varje objekt en efter en fram till slutet . Programmet kan läsa all input från en fil eller databas , looping igenom uppgifterna en post i taget . Resultatet kan antingen sättas in i en databas tabell för senare rapportgenerering , skrivs till en fil eller skickas till en handledare . Instruktioner
1
Öppna en anslutning till antingen en databas eller en extern fil för att hämta in för Visual Basic-programmet . Du kommer att behöva definiera variabler av typ dubbelt för att hålla kommissionen , lön , provision takt och försäljningssiffror för den aktuella månaden .
2
Loop genom informationen med hjälp av en " Do While " loop . Om hämta indata från en databas , " Do While Not rstSalesData.EOF " kommer att utföra de kommandon som följer detta uttalande till slutet av postmängden har nåtts . Addera 3
Hämta de belopp nödvändiga för kommissionens beräkning . En typisk kommissionen kan vara att säljaren erhåller 10 procent av omsättningen över $ 10.000 och 5 procent på omsättningen mindre än $ 10.000 . Först , hämta försäljningsbeloppet för månaden i försäljningen rörlig och lön till lön variabeln . Om beloppet är mer än $ 10.000, kommer kommissionen hastigheten vara 5 procent . Ställ in hastigheten variabeln lika med 0,05 och försäljning variabeln lika med beloppet av försäljningen , $ 4700 till exempel .
4
Beräkna kommissionen genom att ta försäljningen variabla tider kommissionen rate.dCommission = dSales * dRate.Get den totala lönen för månaden genom att lägga till " dCommission " till lönen variabeln " dSalary . " Format " dSalary " till två decimaler för att få en korrekt belopp i dollar .
5
Avsluta slingan med " loop " . Det slutliga programmet koden ska se ut så här : Gör Även om inte rstSalesData.EOFdSales = rstSalesData.field ( " Försäljning " ) valueIf dSales < 10000 ThendRate = .05 ElsedRate = .10 End IfdSalary = rstSalesData.fields ( " Lön " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) ' lägg koden här för att uppdatera databasen med dSalary eller skriva till en filerstSalesData.MoveNextLoopThe linje som börjar med en apostrof är en kommentar i Visual Basic . Det är där en funktion kan läggas till antingen spara " dSalary " till en fil eller till databasen innan du går vidare till nästa post .
