Commissioni di vendita può essere strutturato in molti modi diversi a seconda del settore e della società . L'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 può leggere tutto l'input da un file o di database , scorrendo l' un record di dati alla volta . I risultati possono essere inseriti sia in una tabella di database per la successiva generazione di report , scritto in un file o inviato per email un supervisore . Istruzioni
1
aprire una connessione a un database o da un file esterno per recuperare l' input per l'applicazione Visual Basic . È necessario definire le variabili di tipo double per contenere la commissione, stipendio , tasso di commissione e dati di vendita per il mese corrente .
2
loop attraverso le informazioni utilizzando un " Do While " loop . Se il recupero di input da un database , " Do While Not rstSalesData.EOF " eseguirà i comandi che seguono questa dichiarazione fino alla fine del set di record è stato raggiunto.
3
recuperare gli importi necessarie per il calcolo commissione. Una commissione tipico potrebbe essere che il venditore riceve il 10 per cento delle vendite di oltre $ 10.000 e il 5 per cento sul fatturato 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ù di $ 10.000, il tasso di commissione sarà del 5 per cento . Impostare la variabile tasso pari a 0,05 e la variabile di vendita pari alla quantità di vendite , 4700 dollari per esempio.
4
Calcola la Commissione prendendo le vendite tempi variabili Commissione rate.dCommission = dSales * dRate.Get lo stipendio totale per il mese con l'aggiunta di " dCommission " alla variabile di stipendio " dSalary . " Formato " dSalary " a due cifre decimali per ottenere un importo in dollari accurato .
5 < p > Termina il ciclo con "Loop " . Il codice del programma finale dovrebbe essere simile a questo : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( " Assistenza") valueIf dSales < 10000 ThendRate = .05 ElsedRate = 0,10 Fine IfdSalary = rstSalesData.fields ( " Stipendio " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2) ' aggiungere qui il codice per aggiornare il database con dSalary o scrivere ad una linea filerstSalesData.MoveNextLoopThe che inizia con un apostrofo è un commento in Visual Basic . E 'qui che una funzione può essere aggiunto per salvare uno dei due " dSalary " ad un file o al database prima di passare al record successivo .