Anzeige
Archiv - Navigation
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einkommensteuerberechnung

Einkommensteuerberechnung
12.11.2002 20:25:27
Volker
Wie ist Einkommensteuerberechnung 2002 zu formulieren? Danke im voraus!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einkommensteuerberechnung
12.11.2002 21:00:20
andre
hallo Volker,
wenn Du es als Text brauchst direkt eingeben ;-)
Bei Aldi gibts auch ab und zu Software für ca. 5 Euro.

Spaß beiseite - was meinst Du damit?

gruss andre

Re: Einkommensteuerberechnung
12.11.2002 21:00:27
Erich
Hallo Volker,

auf die Schnelle zwei "Funktionen". Wegen evtl. Änderungen bin ich momentan nicht sicher ob die Parameter (Grund-Freibeträge, Faktoren usw.) lt. ESTG noch aktuell sind.

zvE: = zu versteuerndes Einkommen
EURESTG02 = in Euro, Grundtabelle, Jahr 2002
EURESTS02 = in Euro, Splittingtabelle, Jahr 2002

Beispiel: Zelle A1 = 100.000,-- (=zvE)
Zelle A2: =EURESTG02(A1)


Function EURESTG02(zvE)
If zvE < 7236 Then
EURESTG02 = 0
ElseIf zvE < 9252 Then
EURESTG02 = Int(((768.85 * ((Int(zvE / 36) * 36 + 18) - 7200) / 10000) + 1990) * ((Int(zvE / 36) * 36 + 18) - 7200) / 10000)
ElseIf zvE < 55008 Then
EURESTG02 = Int(((278.65 * ((Int(zvE / 36) * 36 + 18) - 9216) / 10000) + 2300) * ((Int(zvE / 36) * 36 + 18) - 9216) / 10000 + 432)
ElseIf zvE >= 55008 Then
EURESTG02 = Int(0.485 * (Int(zvE / 36) * 36 + 18) - 9872)
End If
End Function

Function EURESTS02(zvE)
If zvE / 2 < 7236 Then
EURESTS02 = 0
ElseIf zvE / 2 < 9252 Then
EURESTS02 = Int(((768.85 * ((Int(zvE / 2 / 36) * 36 + 18) - 7200) / 10000) + 1990) * ((Int(zvE / 2 / 36) * 36 + 18) - 7200) / 10000) * 2
ElseIf zvE / 2 < 55008 Then
EURESTS02 = Int(((278.65 * ((Int(zvE / 2 / 36) * 36 + 18) - 9216) / 10000) + 2300) * ((Int(zvE / 2 / 36) * 36 + 18) - 9216) / 10000 + 432) * 2
ElseIf zvE / 2 >= 55008 Then
EURESTS02 = Int(0.485 * (Int(zvE / 2 / 36) * 36 + 18) - 9872) * 2
End If
End Function

mfg
Erich

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige