Salg kommisjon kan være strukturert mange forskjellige måter avhengig av bransjen og selskapet . Utføre denne beregningen innenfor et Visual Basic program er rask og effektiv . VB gir et par måter å sløyfe gjennom et sett med data , prosessering hvert element én etter én til slutten . Programmet kan lese all input fra en fil eller database , viderekobling av data én post om gangen . Resultatene kan enten settes inn i en database tabell for senere rapport generasjon, skrevet til en fil eller e-post til en veileder . Instruksjoner
en
Åpne en forbindelse til enten en database eller en ekstern fil til å hente input for Visual Basic-programmet . Du må definere variabler av typen double å holde provisjon, lønn , kommisjon og salgstallene for inneværende måned .
2
Loop gjennom informasjon ved hjelp av en " Do While " loop . Hvis hente innspill fra en database , " Do While Not rstSalesData.EOF " vil utføre kommandoer som følger denne uttalelsen til slutten av postsettet er nådd.
3
Hent beløpene nødvendig for kommisjon beregningen. En typisk kommisjon kan være at selgeren mottar 10 prosent av salg over $ 10.000 og 5 prosent på salg mindre enn $ 10000 . Først hente salgsbeløpet for måneden i salg variable og lønn til lønn variabel. Hvis beløpet er mer enn $ 10.000, vil kommisjon være 5 prosent . Sett kursen variabel lik 0,05 og salg variabel lik mengden av salget, $ 4700 for eksempel.
4
Beregn provisjon ved å ta salget variable tider kommisjonen rate.dCommission = dSales * dRate.Get den totale lønn for måneden ved å legge til " dCommission " til lønn variabel av " dSalary . " Format " dSalary " til to desimaler for å få en nøyaktig pengebeløp .
5 < p> Avslutt sløyfe med " Loop " . Det endelige programmet koden skal ligne på dette: Gjør mens ikke rstSalesData.EOFdSales = rstSalesData.field ( "Salg" ) valueIf dSales < 10000 ThendRate = 0,05 ElsedRate = 0,10 End IfdSalary = rstSalesData.fields ( " Lønn ") . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) ' legge koden her for å oppdatere databasen med dSalary eller skrive det til en filerstSalesData.MoveNextLoopThe linjen som begynner med en apostrof er en kommentar i Visual Basic. Det er her en funksjon kan legges til enten lagre " dSalary " til en fil eller til databasen før du går videre til neste post .
