Hvordan beregne Kommisjonen Bruke Looping

Hvordan beregne Kommisjonen Bruke Looping


Salgskommisjon kan være strukturert mange forskjellige måter, avhengig av bransjen og selskapet. Utføre denne beregningen i en Visual Basic-programmet er rask og effektiv. VB gir et par måter å sløyfe gjennom et sett av data, behandling hvert element en etter en helt til slutten. Programmet kan lese alle innspill fra en fil eller database, looping gjennom dataene én post om gangen. Resultatene kan enten settes inn i en database tabell for senere rapportgenerering skrevet til en fil eller e-post til en veileder.

Bruksanvisning

1 Åpne en tilkobling til enten en database eller en ekstern fil å hente innspill til Visual Basic-programmet. Du må definere variabler av typen double å holde kommisjonen, lønn, kommisjon og salgstall for inneværende måned.

2 Loop gjennom informasjon ved hjelp av en "gjøre mens" loop. Hvis hente innspill fra en database, "gjøre mens Not rstSalesData.EOF" vil utføre kommandoer som følger dette utsagnet til slutten av postsettet er nådd.

3 Hent nødvendige for beregningen kommisjon beløp. Et typisk oppdrag kan være at selgeren mottar 10 prosent av salg over $ 10.000 og fem prosent på omsetning mindre enn $ 10.000. Først hente salgsbeløpet for måneden i salgs variable og lønn til lønn variabel. Hvis beløpet er mer enn $ 10.000, vil kommisjon være 5 prosent. Angi graden variabelen lik 0,05 og omsetning variable lik mengden av salg, $ 4700 f.eks.

4 Beregn kommisjon ved å ta salget variable tider kommisjon.
dCommission = dSales * dRate.
Få den totale lønnen 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 Avslutt sløyfe med "Loop". Det endelige programmet koden skal se ut omtrent slik:
Gjør Mens Ikke rstSalesData.EOF
dSales = rstSalesData.field ( "Salg"). verdi
Hvis dSales <10000 Så

dRate = .05

Ellers

dRate = .10

Slutt om
dSalary = rstSalesData.fields ( "Lønn"). verdi
dCommission = dSales * dRate
dSalary = round ((dSalary + dCommission), 2)
'Legge til kode her for å oppdatere databasen med dSalary eller skrive den til en fil
rstSalesData.MoveNext
Loop
Linjen som begynner med en apostrof er en kommentar i Visual Basic. Det er der en funksjon kan legges til enten lagre "dSalary" til en fil eller til databasen før du går videre til neste post.