Hallo,
ich versuche gerade ein Programm über Excel (VBA) zu schreiben, die nach Eingabe des Jahreseinkommen die Einkommensteuer und ggf. den Solidaritätszuschlag berechnen soll.
Ich weiß jetzt nur nicht wie meine Anweisung aussehen soll. Also, wie ich die If-Anweisung einfügen soll.
Bin Anfänger und brauche eure Hilfe. Danke!
Formel für Einkommensteuerberechnung:
§ 32 a
Einkommensteuertarif
(1) [1] Die tarifliche Einkommensteuer bemisst sich nach dem zu versteuernden Einkommen. [2] Sie beträgt vorbehaltlich der §§ 32 34, 34 b und 34 c jeweils in Euro für zu versteuernde Einkommen
1. bis 7 664 Euro (Grundfreibetrag): 0;
2. von 7 665 Euro bis 12 739 Euro: (793,10 · y + 1600) · y;
3. von 12 740 Euro bis 52 151 Euro: (265,78 · z + 2405) · z + 1 016;
4. von 52 152 Euro an: 0,45 · x 8845.
Mein Ansatz:
Sub einkommensteuer()
Dim jahreseinkommen As Double
Dim alleinstehend As Double
Dim jahr As Integer
Dim einkommensteuer As Double
Dim solidaritaetszuschlag As Double
Dim summe As Double
Dim betrag As Double
Dim durchschnittsbelastung As Double
Dim grenzbelastung As Double
jahr = InputBox("Einkommensteuer für welches Jahr?")
jahreseinkommen = InputBox("Bitte geben Sie Ihr Jahreseinkommen ein")
alleinstehend = InputBox("Sind Sie alleinstehend?")
|