Im Folgenden sehen wir uns ein Programm in an Excel VBA die die Einkommensteuer berechnet. Folgende Steuersätze gelten für Personen mit Wohnsitz in Australien.
|
Steuerpflichtiges Einkommen |
Steuern auf dieses Einkommen |
|---|---|
|
0 - $6,000 |
Null |
|
$6,001 - $35,000 |
15c für jeden $1 über $6.000 |
|
$35,001 - $80,000 |
$4.350 plus 30c für jeden $1 über $35.000 |
|
$80,001 - $180,000 |
17.850 USD plus 38 Cent für jeden 1 USD über 80.000 USD |
|
180.001 $ und mehr |
$55.850 plus 45c für jeden $1 über $180.000 |
Lage:
1. Zuerst deklarieren wir zwei Double-Variablen. Eine Doppelvariable nennen wir Einkommen und eine Doppelvariable nennen wir Steuern.
Geringes Einkommen als Double
Dim Steuer als Double
2. Wir initialisieren das variable Einkommen mit dem Wert der Zelle A2 und runden es.
Einkommen = Round(Range("A2").Value)
3. Wir platzieren den gerundeten Wert wieder in Zelle A2.
Range("A2").Wert = Einkommen
4. Wir verwenden die Select Case-Anweisung, um die Einkommensteuer zu berechnen. Excel VBA verwendet Einkommen, um jede nachfolgende Case-Anweisung zu testen, um festzustellen, ob der Code unter der Case-Anweisung ausgeführt werden soll.
Falleinkommen auswählen
Fall ist >= 180001
Steuer = 55850 + 0,45 * (Einkommen - 180000)
Fall ist >= 80001
Steuer = 17850 + 0,38 * (Einkommen - 80000)
Fall ist >= 35001
Steuer = 4350 + 0,3 * (Einkommen - 35000)
Fall ist >= 6001
Steuer = 0,15 * (Einkommen - 6000)
Fall sonst
Steuer = 0
Auswahl beenden
Beispiel: Wenn das Einkommen 37000 beträgt, beträgt die Steuer 4350 + 0,3 * (37000-35000) = 4350 + 600 = 4950 $
5. Wir schreiben den Wert der variablen Steuer in Zelle B2.
Range("B2").Wert = Steuer
6. Platzieren Sie diesen Code in einer Befehlsschaltfläche, und testen Sie es.
Ergebnis:
