Spaß beiseite - was meinst Du damit?
gruss andre
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen