להלן נבחן תוכנית ב Excel VBA שמחשב את המס על הכנסה. הבאים שיעורי המס חל על אנשים שהם תושבי אוסטרליה.
|
הכנסה החייבת במס |
מס על הכנסה זו |
|---|---|
|
0 - $6,000 |
אֶפֶס |
|
$6,001 - $35,000 |
15c עבור כל $ 1 מעל 6,000 $ |
|
$35,001 - $80,000 |
4,350 $ בתוספת 30c עבור כל $ 1 מעל 35,000 $ |
|
$80,001 - $180,000 |
17,850 $ בתוספת 38c עבור כל $ 1 מעל 80,000 $ |
|
180,001 $ ומעלה |
55,850 $ בתוספת 45c לכל 1 $ מעל 180,000 $ |
מַצָב:
1. ראשית, אנו מכריזים על שני משתנים כפולים. משתנה כפול אחד אנו קוראים לו הכנסה, ומשתנה כפול אחד אנו קוראים לו מס.
הגדילו את ההכנסה ככפולה
עמום המס ככפול
2. אנו מאתחלים את ההכנסה המשתנה לפי הערך של תא A2 ומעגלים אותה.
הכנסה = עגול (טווח ("A2"). ערך)
3. אנו מציבים את הערך המעוגל שוב לתא A2.
טווח ("A2"). ערך = הכנסה
4. אנו משתמשים בהצהרת Select Case לחישוב המס על הכנסה. Excel VBA משתמש בהכנסה כדי לבדוק כל הצהרת מקרה הבאה כדי לבדוק אם יש לבצע את הקוד תחת הצהרת המקרה.
בחר הכנסה במקרה
מקרה הוא> = 180001
מס = 55850 + 0.45 * (הכנסה - 180000)
מקרה הוא> = 80001
מס = 17850 + 0.38 * (הכנסה - 80000)
מקרה הוא> = 35001
מס = 4350 + 0.3 * (הכנסה - 35000)
מקרה הוא> = 6001
מס = 0.15 * (הכנסה - 6000)
מקרה אחר
מס = 0
סיום בחר
דוגמה: אם ההכנסה היא 37000, המס שווה ל- 4350 + 0.3 * (37000-35000) = 4350 + 600 = $ 4950
5. אנו כותבים את ערך המס המשתנה לתא B2.
טווח ("B2"). ערך = מס
6. הנח קוד זה בכפתור פקודה ובדוק אותו.
תוֹצָאָה:
