Alla tarkastelemme ohjelmaa Excel VBA joka laskee tuloveron. Seuraavat veroprosentit koskee henkilöitä, jotka ovat Australian asukkaita.
Verotettava tulo |
Veroa tästä tulosta |
---|---|
0 - $6,000 |
Nolla |
$6,001 - $35,000 |
15c jokaista 1 dollaria kohti yli 6000 dollaria |
$35,001 - $80,000 |
4 350 dollaria plus 30 c jokaista 1 dollaria kohti yli 35 000 dollaria |
$80,001 - $180,000 |
17 850 dollaria plus 38 c jokaista 1 dollaria kohti yli 80 000 dollaria |
180 001 dollaria ja enemmän |
55850 dollaria plus 45c jokaisesta 1 dollarista yli 180 000 dollarin |
Tilanne:
1. Ensin julistamme kaksi kaksoismuuttujaa. Yksi kaksinkertainen muuttuja, jota kutsumme tuloksi, ja yksi kaksinkertainen muuttuja, jota kutsumme veroksi.
Hämärät tulot Tuplana
Dim vero kaksinkertaisena
2. Alustamme muuttuvan tulon solun A2 arvolla ja pyöristämme sen.
tulot = kierros (alue ("A2"). arvo)
3. Sijoitamme pyöristetyn arvon soluun A2.
Alue ("A2"). Arvo = tulot
4. Käytämme Select Case -laskelmaa tuloveron laskemiseen. Excel VBA käyttää tuloja testatakseen jokaisen seuraavan tapauslausuman nähdäkseen, onko tapauslausekkeen alla oleva koodi suoritettava.
Valitse tapauksen tulot
Tapaus on> = 180001
vero = 55850 + 0,45 * (tulot - 180000)
Tapaus on> = 80001
vero = 17850 + 0,38 * (tulot - 80000)
Tapaus on> = 35001
vero = 4350 + 0,3 * (tulot - 35000)
Tapaus on> = 6001
vero = 0,15 * (tulot - 6000)
Asia Muu
vero = 0
Lopeta Valitse
Esimerkki: jos tulot ovat 37000, vero on 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 dollaria
5. Kirjoitamme muuttuvan veron arvon soluun B2.
Alue ("B2"). Arvo = vero
6. Aseta tämä koodi komentopainikkeeseen ja testaa se.
Tulos: