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