Salg provision kan struktureres mange forskellige måder afhængig af industrien og virksomheden. Udføre denne beregning i et Visual Basic program er hurtig og effektiv . VB giver et par måder at sløjfe gennem et sæt af data , behandling hver post én efter én, indtil slutningen. Programmet kan læse alle de input fra en fil eller database , looping gennem data én post ad gangen. Resultaterne kan enten indsættes i en database tabel til senere rapport generation , skrevet til en fil eller e-mailes til en vejleder . Instruktioner
1

Åben en forbindelse til enten en database eller en ekstern fil til at hente input til din Visual Basic-program . Du bliver nødt til at definere variabler af typen double for at holde kommissionen løn, provision og salgstal for den aktuelle måned .
2

Loop gennem information gennem en " Do While " loop . Hvis hente input fra en database, " Do While Ikke rstSalesData.EOF " vil udføre de kommandoer , der følger denne erklæring indtil slutningen af ​​postsættet er nået.
3

Hent beløbene nødvendigt, at Kommissionen beregningen. En typisk kommission kan være, at sælger modtager 10 procent af salget over $ 10.000 og 5 procent på salg mindre end $ 10.000. Først hente salgsbeløbet for måneden i salget variabel og lønnen i lønnen variabel. Hvis beløbet er mere end $ 10.000, vil provisionssats være 5 procent. Sæt kurs variablen lig med .05 og salg variable svarende til det beløb af salget, $ 4700 for eksempel.
4

Beregn provision ved at tage salget variable tider kommissionen rate.dCommission = dSales * dRate.Get den samlede løn for den måned, ved at tilføje " dCommission " til lønnen variabel " dSalary . " Format " dSalary " til to decimaler for at få en præcis dollar beløb.
5 < p> Afslut løkken med "Løkke " . Det endelige program kode skal ligne dette : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( " Salg" ) valueIf dSales < 10000 ThendRate = .05 ElsedRate = .10 End IfdSalary = rstSalesData.fields ( " Løn "). . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ), 2) ' føje kode her for at opdatere databasen med dSalary eller skrive det til en filerstSalesData.MoveNextLoopThe linje, der begynder med en apostrof er en kommentar i Visual Basic. Det er her, en funktion kan tilføjes til enten gemme " dSalary " til en fil eller til databasen før de går videre til den næste post .