Ako vypočítať Komisiu Použitie Looping

Predaj komisie môže byť štruktúrovaný mnohými rôznymi spôsobmi v závislosti na odvetví a spoločnosti . Vykonanie tohto výpočtu v programe Visual Basic je veľmi jednoduché a efektívne . VB poskytuje niekoľko spôsobov , ako prechádzať súborom dát , spracovanie jednotlivé položky po jednej až do konca . Program vie čítať všetky vstupy zo súboru alebo databázy , priechodná dát jedného záznamu v čase. Výsledky môžu byť buď vloží do databázovej tabuľky pre neskoršie generovanie reportov , zapísať do súboru alebo e - mailom na školiteľa . Pokyny dovolená 1

Otvorte pripojenie k jednej databáze alebo externého súboru načítať vstup pre aplikáciu Visual Basic . Budete musieť definovať premenné typu double držať provízie , plat , sadzbu provízie a predajné údaje za aktuálny mesiac .
2

slučku cez informácií pomocou " robiť , keď " slučky . Ak načítanie vstupu z databázy , " robiť , keď nie rstSalesData.EOF " bude vykonávať príkazy , ktoré nasledujú toto vyhlásenie do konca záznamov bolo dosiahnuté .
3

Načítať čiastky nevyhnutné pre výpočet provízií . Typický komisie môže byť , že predajca dostane 10 percent z tržieb viac ako 10.000 USD a 5 percent na tržbách menej ako 10.000 dolárov . Po prvé , získať predajnej čiastky za mesiac do premennej predaja a platu do premennej platu . Ak je suma viac než $ 10,000 , bude sadzba provízia vo výške 5 percent . Nastavte premennú sadzbou rovnajúcou sa 0,05 a variabilné predaja rovnajúcej sa výške tržieb , 4700 dolárov za príklad .
4

vypočítať províziu tým , že na tržieb krát komisie rate.dCommission = dSales * dRate.Get celkový plat za mesiac pridaním " dCommission " k platu premennej " dSalary . " Format " dSalary " na dve desatinné miesta , aby si presné množstvo dolárov .
5

Koniec slučky s " Loop " . Konečný programový kód by mal vyzerať podobne ako tento : robiť , keď nie je rstSalesData.EOFdSales = rstSalesData.field ( " Sales " ) valueIf dSales < 10000 ThendRate = 0,05 ElsedRate = 0,10 End IfdSalary = rstSalesData.fields ( " Plat " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) " pridať kód tu pre aktualizáciu databázy s dSalary alebo napísať , že na filerstSalesData.MoveNextLoopThe riadku , ktorý začína s apostrofom je poznámka v jazyku Visual Basic . To je miesto , kde by mohla byť funkcie pridané buď zachrániť " dSalary " do súboru alebo do databázy , ako ísť na ďalší záznam .

• Predchádzajúca strana: Ako odstrániť revízie v API SolidWorks 
• Ďalšia strana: Ako si vyrobiť hodiny pomocou VB6