commissione di vendita può essere strutturato molti modi diversi a seconda del settore e della società. Esecuzione di questo calcolo all'interno di un programma Visual Basic è veloce ed efficiente. VB fornisce un paio di modi per scorrere un insieme di dati, l'elaborazione di ogni articolo uno per uno fino alla fine. Il programma è in grado di leggere tutti gli input da un file o un database, scorrendo i dati di un record alla volta. I risultati possono sia essere inserite in una tabella del database per la generazione di report in seguito, scritta in un file o via e-mail ad un supervisore.

istruzione

1 Aprire una connessione, o un database o un file esterno per recuperare l'input per l'applicazione Visual Basic. Sarà necessario definire le variabili di tipo double per tenere la Commissione, lo stipendio, tasso di commissione e dati di vendita per il mese corrente.

2 Loop attraverso le informazioni utilizzando un "do while". Se il recupero di input da un database, "Do While Not rstSalesData.EOF" per eseguire i comandi che seguono questa affermazione fino a quando è stata raggiunta la fine del set di record.

3 Recuperare le somme necessarie per il calcolo delle commissioni. Una commissione tipico potrebbe essere che il venditore riceve il 10 per cento delle vendite di oltre $ 10.000 e il 5 per cento sulle vendite meno di $ 10.000. In primo luogo, recuperare l'importo delle vendite per il mese nella variabile di vendita e lo stipendio nella variabile stipendio. Se la quantità è più allora $ 10.000, il tasso di commissione sarà del 5 per cento. Impostare la variabile tasso pari a .05 e le vendite variabile pari alla quantità di vendite, $ 4700 per esempio.

4 Calcolare la Commissione prendendo le vendite tempi variabili il tasso di commissione.
dCommission = dSales * drate.
Prendi il salario totale per il mese con l'aggiunta di "dCommission" alla variabile stipendio di "dSalary." Format "dSalary" a due cifre decimali per ottenere una quantità precisa di dollari.

5 Terminare il ciclo con "Loop". Il codice del programma finale dovrebbe essere simile a questo:
Do While Non rstSalesData.EOF
dSales = rstSalesData.field ( "vendite") di valore.
Se dSales <10000 Poi

dRate = .05

Altro

dRate = .10

Finisci se
dSalary = rstSalesData.fields ( "Stipendio") di valore.
dCommission = dSales * drate
dSalary = round ((dSalary + dCommission), 2)
'Aggiungere il codice qui per aggiornare il database con dSalary o scrivere in un file
rstSalesData.MoveNext
Ciclo continuo
La riga che inizia con un apostrofo è un commento in Visual Basic. Questo è dove una funzione potrebbe essere aggiunto a uno salvare "dSalary" ad un file o alla banca dati prima di passare al record successivo.