Cómo calcular Comisión Usando Looping

Comisión de venta puede estructurarse muchas maneras diferentes, dependiendo de la industria y la empresa. Realizando este cálculo en un programa de Visual Basic es rápido y eficiente. VB proporciona un par de maneras de circular a través de un conjunto de datos , el procesamiento de cada artículo uno por uno hasta el final. El programa puede leer toda la información de un archivo o base de datos , recorriendo el registro de datos a la vez. Los resultados pueden ser colocadas en una tabla de base de datos para la generación de informes más tarde, escribe en un archivo o por correo electrónico a un supervisor. Instrucciones
1

Abra una conexión con cualquier base de datos o un archivo externo para recuperar la entrada para la aplicación de Visual Basic . Usted tendrá que definir las variables de tipo double para mantener la comisión , el salario, la tasa de comisión y las cifras de ventas para el mes en curso .
2

Loop a través de la información a través de un " Do While " loop . Si la recuperación de la entrada de una base de datos , "Do While Not rstSalesData.EOF " ejecutará los comandos que siguen a esta declaración hasta el final del conjunto de registros se ha alcanzado.
3

recuperar las cantidades necesaria para el cálculo de la comisión . Una comisión típica podría ser que el vendedor recibe el 10 por ciento de las ventas de más de $ 10.000 y el 5 por ciento en las ventas de menos de $ 10.000. En primer lugar, recuperar el importe de las ventas para el mes en la variable de ventas y el salario en la variable salario. Si la cantidad es más de $ 10.000, la tasa de comisión será del 5 por ciento . Establezca la variable tasa igual a 0,05 y la variable de ventas igual a la cantidad de ventas, $ 4.700 , por ejemplo.
4

Calcular la comisión mediante la adopción de las ventas de tiempos variables del rate.dCommission comisión = dSales * dRate.Get el salario total para el mes añadiendo " dCommission " a la variable salarial de " dSalary . " Format " dSalary " con dos cifras decimales para obtener una cantidad exacta en dólares .
5 < p> Fin del bucle con el "Loop " . El código del programa final debe ser similar a esto: Do While Not rstSalesData.EOFdSales = rstSalesData.field ("Ventas ") valueIf dSales < 10000 ThendRate = 0.05 = 0.10 ElsedRate End IfdSalary = rstSalesData.fields ( " Salario ") . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) ' agregar código aquí para actualizar la base de datos con dSalary o escribirlo en una línea filerstSalesData.MoveNextLoopThe que comienza con un apóstrofe es un comentario en Visual Basic . Aquí es donde se podría añadir una función a salvar " dSalary " a un archivo o en la base de datos antes de pasar al siguiente registro .