Comissão de vendas pode ser estruturado muitas maneiras diferentes, dependendo do setor e da empresa. Realizando este cálculo dentro de um programa Visual Basic é rápido e eficiente . VB fornece algumas maneiras para loop através de um conjunto de dados , processamento de cada item , um por um até o final. O programa pode ler toda a entrada de um arquivo ou banco de dados , looping através dos dados de um registro de cada vez . Os resultados podem ser inseridos em uma tabela de banco de dados para geração de relatórios mais tarde , escrito em um arquivo ou e-mail a um supervisor. Instruções
1

Abra uma conexão a qualquer banco de dados ou um arquivo externo para recuperar a entrada para seu aplicativo Visual Basic. Você precisará definir variáveis ​​do tipo double para manter a comissão , salário, taxa de comissão e números de vendas para o mês corrente .
2

Percorre as informações usando um " Do While " loop. Se recuperando de entrada a partir de um banco de dados, " Do While Not rstSalesData.EOF " irá executar os comandos que seguem esta declaração até o final do conjunto de registros foi alcançado.
3

Recuperar os montantes necessário para o cálculo da comissão . Uma comissão típico pode ser que o vendedor recebe 10 por cento das vendas de mais de US $ 10.000 e de 5 por cento nas vendas inferiores a US $ 10.000. Em primeiro lugar, recuperar o valor das vendas para o mês na variável de vendas eo salário na variável salário. Se a quantidade é mais do que US $ 10.000, a taxa de comissão será de 5 por cento. Defina a variável de taxa igual a 0,05 ea variável de vendas igual ao montante de vendas, 4.700 dólares por exemplo.
4

Calcule a comissão , tomando as vendas tempos variáveis ​​a comissão rate.dCommission = dSales * dRate.Get o salário total para o mês , acrescentando " dCommission " para a variável salário de " dSalary . " Format " dSalary " com duas casas decimais para obter uma quantidade de dólar preciso.
5

Termine o laço com o " loop" . O código final do programa deve ser semelhante a este : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( "Vendas" ) valueIf dSales < 10000 ThendRate = 0,05 ElsedRate = 0,10 Fim IfdSalary = rstSalesData.fields ( "salário" ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ), 2) ' adicionar o código aqui para atualizar o banco de dados com dSalary ou gravá-lo em uma linha filerstSalesData.MoveNextLoopThe que começa com um apóstrofo é um comentário em Visual Basic. Este é o lugar onde uma função pode ser adicionada a qualquer salvar " dSalary " para um arquivo ou para o banco de dados antes de ir para o próximo registro.