Brutto2Netto.pm  

####################################################################################################################### # Vereinfachte Berechnung des Nettogehalts bzw. der Nettopension von Angestellte und Pensionisten für 2001 bis 2021: # # Berücksichtigt sind: Arbeitnehmer-, Verkehrs- und Pensionistenabsetzbetrag bzw. Sonderausgaben- und # Webungskostenpauschale. Nicht berücksichtigt sind: Pendlerpauschale, Sachbezug, Alleinverdiener-, Alleinerzieher-, # Unterhalts- und Kinderabsetzbetrag, etc. # # (c) 2014-2021 by Ing. Peter Grobner, peter@grobner.at, http://paudorf142.at/cgi-bin/brutto2netto.cgi #---------------------------------------------------------------------------------------------------------------------- ####################################################################################################################### # $netto=brutto2netto($brutto,$year,$m,$pens) # \ \ \ \_ 0=Angestellte, 1=Pensionisten # \ \ \____-1=Jahresgehalt, 0..12 Monatsgehalt, 13..14=erste/zweite Sonderzahlung # \ \_________ Jahr der Versteuerung # \________________ Monatsbrutto sub brutto2netto { my ($minYEAR,$maxYEAR)=(2001,2022); return ($minYEAR,$maxYEAR) if(0==scalar @_); my($brutto,$year,$m,$pens)=@_; $year||=1900+(localtime(time))[5]; return undef if($year<$minYEAR or $year>$maxYEAR); my $BG12=12*$brutto-12*SV($brutto,$year,0,$pens); my $N12=($BG12-ESt($BG12,$year,0,$pens)); return $N12/12 if($m>=0 and $m<=12); my $BG13= $brutto- SV($brutto,$year,1,$pens); my $N13=($BG13-ESt($BG13,$year,1,$pens)); return $N13 if($m==13); my $N14=($BG13-ESt($BG13,$year,2,$pens)); return $N14 if($m==14); return $N12+$N13+$N14; } ####################################################################################################################### # $svBetrag=SV($v,$year,$SZ,$pens) # \ \ \ \_ 0=Angestellte, 1=Pensionisten # \ \ \___ 0=laufendes Monat, >0=Sonderzahlung # \ \________ Jahr der Bemessung # \__________ Monatsbrutto # # @werte=SV(-1,$year) # sub SV { ## Geringfügigkeitsgrenze/M # ## Ausgleichstaxe (für Betriebe > 400MA) §9(2) BEinstG # # ## Krankenversicherung §51(3)1.a ASVG # # # ## Pensionsversicherung §51(3)2 ASVG # # # # ## Grenze AL1% # # # # # ## Grenze AL2% # # # # # # ## Grenze AL3% my %Wert= # # # # # # # ## SV-Höchstbeitragsgrundlage/M ( # # # # # # # # 1999 => [ 283.35, 148.25, 0.0340, 0.1025, 0.00, 0.00, 0.00, 3095.86 ], 2000 => [ 289.02, 148.98, 0.0340, 0.1025, 0.00, 0.00, 0.00, 3139.47 ], 2001 => [ 296.21, 149.71, 0.0340, 0.1025, 0.00, 0.00, 0.00, 3226.67 ], 2002 => [ 301.54, 196.22, 0.0340, 0.1025, 0.00, 0.00, 0.00, 3270.00 ], 2003 => [ 309.38, 196.22, 0.0340, 0.1025, 0.00, 0.00, 0.00, 3360.00 ], 2004 => [ 316.19, 198.00, 0.0370, 0.1025, 0.00, 0.00, 0.00, 3450.00 ], 2005 => [ 323.46, 201.00, 0.0375, 0.1025, 0.00, 0.00, 0.00, 3630.00 ], 2006 => [ 333.16, 206.00, 0.0375, 0.1025, 0.00, 0.00, 0.00, 3750.00 ], 2007 => [ 341.16, 209.00, 0.0375, 0.1025, 0.00, 0.00, 0.00, 3840.00 ], 200801 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 200802 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 200803 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 200804 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 200805 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 200806 => [ 349.01, 213.00, 0.0382, 0.1025, 0.00, 0.00, 0.00, 3930.00 ], 2008 => [ 349.01, 213.00, 0.0382, 0.1025, 1100.00, 1200.00, 1350.00, 3930.00 ], 2009 => [ 357.74, 220.00, 0.0382, 0.1025, 1128.00, 1230.00, 1384.00, 4020.00 ], 2010 => [ 366.33, 233.00, 0.0382, 0.1025, 1155.00, 1260.00, 1417.00, 4110.00 ], 2011 => [ 374.02, 336.00, 0.0382, 0.1025, 1179.00, 1286.00, 1447.00, 4200.00 ], 2012 => [ 376.26, 345.00, 0.0382, 0.1025, 1186.00, 1294.00, 1456.00, 4230.00 ], 2013 => [ 386.80, 355.00, 0.0382, 0.1025, 1219.00, 1330.00, 1497.00, 4440.00 ], 2014 => [ 395.31, 364.00, 0.0382, 0.1025, 1246.00, 1359.00, 1530.00, 4530.00 ], 2015 => [ 405.98, 370.00, 0.0382, 0.1025, 1280.00, 1396.00, 1571.00, 4650.00 ], 2016 => [ 415.72, 374.00, 0.0387, 0.1025, 1311.00, 1430.00, 1609.00, 4860.00 ], 2017 => [ 425.70, 377.00, 0.0387, 0.1025, 1342.00, 1464.00, 1648.00, 4980.00 ], 201801 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 201802 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 201803 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 201804 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 201805 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 201806 => [ 438.05, 383.00, 0.0387, 0.1025, 1381.00, 1506.00, 1696.00, 5130.00 ], 2018 => [ 438.05, 383.00, 0.0387, 0.1025, 1648.00, 1798.00, 1948.00, 5130.00 ], 2019 => [ 446.81, 391.00, 0.0387, 0.1025, 1681.00, 1834.00, 1987.00, 5220.00 ], 2020 => [ 460.66, 398.00, 0.0387, 0.1025, 1733.00, 1891.00, 2049.00, 5370.00 ], 2021 => [ 475.86, 404.00, 0.0387, 0.1025, 1790.00, 1953.00, 2117.00, 5550.00 ], 2022 => [ 475.86, 404.00, 0.0387, 0.1025, 1790.00, 1953.00, 2117.00, 5550.00 ], ); # 0 1 2 3 4 5 6 7 my($v,$year,$SZ,$pens)=@_; $year||=100*(1900+(localtime(time))[5]) +1+(localtime(time))[6]; $year/=100 unless($Wert{$year}); return undef unless($Wert{$year}); return @{$Wert{$year}} if($v==-1); # Rückgabe der Wertetabelle return $v*0.051 if($pens); # Pensionisten zahlen 5,1% Krankenversicherungsbeitrag # laut https://www.ots.at/presseaussendung/OTS_20100526_OTS0176/ # seit mindestens 2010 ... return 0 if($v<=$Wert{$year}[0]); # Geringfügigkeitsgrenze/M my $KV = $Wert{$year}[2]; # Krankenversicherung §51(3)1.a ASVG my $PV = $Wert{$year}[3]; # Pensionsversicherung §51(3)2 ASVG my $ALV= ($v<=$Wert{$year}[4])? 0.000 # Arbeitslosenversicherung §2a AMPFG :($v<=$Wert{$year}[5])? 0.010 :($v<=$Wert{$year}[6])? 0.020 : 0.030; my $AKU= $SZ? 0: 0.005; # AK-Umlage my $WBF= $SZ? 0: 0.005; # Wohnbauförderung my $max= $Wert{$year}[7]; # SV-Höchstbeitragsgrundlage/M ### printf "\nv=%.2f, KV=%.2f, PV=%.2f, ALV=%.2f, AKU=%.2f, WBF=%.2f, SV=%.2f", ### $v, $KV, $PV, $ALV, $AKU, $WBF, ($KV+$PV+$ALV+$AKU+$WBF)*$v; return ($KV+$PV+$ALV+$AKU+$WBF)*($v<$max? $v:$max); } ####################################################################################################################### # $lohnsteuer=LSt($v,$year,$SZ,$pens) # \ \ \ \_ 0=Angestellte, 1=Pensionisten # \ \ \___ 0=laufendes Monat, 1=erste Sonderzahlung, 2=zweite Sonderzahlung # \ \________ Jahr der Bemessung # \__________ Bemessungsgrundlage (Monatsbrutto-SV) # sub LSt { return ESt(@_); } sub ESt { ## Jahressechstel-Freigrenze # ## Jahressechstel-Freibetrag my %Wert= # # ## Steuerklassen-Grenzbeträge ( # # # ## Steuerklassen-Steuersätze, ... # # # # 1999 => [ 1671, 618, 0- 3634, 0.1, 3634- 7267, 0.22, 7267-10901, 0.32, 10901-29070, 0.42, 29070, 0.5 ], 2000 => [ 1671, 618, 0- 3640, 0.0, 3640- 7270, 0.21, 7270-21800, 0.31, 21800-50870, 0.41, 50870, 0.5 ], 2001 => [ 1671, 618, 0- 3640, 0.0, 3640- 7270, 0.21, 7270-21800, 0.31, 21800-50870, 0.41, 50870, 0.5 ], 2002 => [ 1680, 620, 0- 3640, 0.0, 3640- 7270, 0.21, 7270-21800, 0.31, 21800-50870, 0.41, 50870, 0.5 ], 2003 => [ 1680, 620, 0- 3640, 0.0, 3640- 7270, 0.21, 7270-21800, 0.31, 21800-50870, 0.41, 50870, 0.5 ], 2004 => [ 1900, 620, 0- 3640, 0.0, 3640- 7270, 0.21, 7270-21800, 0.31, 21800-50870, 0.41, 50870, 0.5 ], 2005 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 2006 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 2007 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200801 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200802 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200803 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200804 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200805 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 200806 => [ 2000, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 2008 => [ 2100, 620, 0-10000, 0.0, 10000-25000, 23/60, 25000-51000, 11335/26000, 51000, 0.5 ], 2009 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2010 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2011 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2012 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2013 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2014 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2015 => [ 2100, 620, 0-11000, 0.0, 11000-25000, 0.365, 25000-60000, 15125/35000, 60000, 0.5 ], 2016 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.25, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2017 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.25, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2018 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.25, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2019 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.25, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2020 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.20, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2021 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.20, 18000-31000, 0.35, 31000-60000, 0.42, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], 2022 => [ 2100, 620, 0-11000, 0.0, 11000-18000, 0.20, 18000-31000, 0.30, 31000-60000, 0.40, 60000-90000, 0.48, 90000-1000000, 0.5, 1000000, 0.55 ], ); my($v,$year,$SZ,$pens)=@_; $year||=100*(1900+(localtime(time))[5]) +1+(localtime(time))[6]; $year/=100 unless($Wert{$year}); return undef unless($Wert{$year}); return @{$Wert{$year}} if($v==-1); # Rückgabe der Wertetabelle return (2*$v<$Wert{$year}[0])? 0 : ($SZ==1)? ( $v-$Wert{$year}[1])*0.06 : # Sonderregelung für Jahressechstel §41(4) EStG incl. Freibetrag ( $v )*0.06 if($SZ); # Sonderregelung für Jahressechstel §41(4) EStG excl. Freibetrag my $zvE= $v; $zvE= $zvE -60.00 if($year<2021); # Sonderausgabenpauschale (war öS 819,00); entfällt ab 2021 $zvE= $zvE -132.00 if(!$pens); # Webungskostenpauschale (war öS 1800,00) my($zv,$ESt,$i)=($zvE,0,2); while($zv>0) { my($p,$q)=@{$Wert{$year}}[$i++,$i++]; $p=-$p; $ESt+=($p<0 || $zv<$p)? $q*$zv:$q*$p; $zv-=$p; last if($p<0); } $ESt+= -allgAB($zvE,$year); # bis 2004: Allg. Steuerabsetzbetrag mit Einschleifregelung §33(3) EStG $ESt+= -verkAB($zvE,$year) if(!$pens); # ab 2004: Arbeitnehmer-, Verkehrsabsetzbetrag # ab 2020: SV-Bonus über AN-veranlagung! $ESt+= -pensAB( $v, $year) if( $pens); # Pensionistenabsetzbetrag §33(6)Z3 EStG 1988 return $ESt<0? 0:$ESt; } ####################################################################################################################### # ($Pendlerpauschale,$Pendlereuro)=PP($km,$year) # \ \_______ Jahr der Bemessung # \___________ km Wohnort => Dienstort sub PP { my %Wert= ( 2000 => [ 0, 20,31.98, 40, 63.95, 60, 95.93 ], 2001 => [ 0, 20,31.98, 40, 63.95, 60, 95.93 ], 2002 => [ 0, 20,32.00, 40, 64.00, 60, 96.00 ], 2003 => [ 0, 20,32.00, 40, 64.00, 60, 96.00 ], 2004 => [ 0, 20,37.50, 40, 74.25, 60,111.00 ], 2005 => [ 0, 20,37.50, 40, 74.25, 60,111.00 ], 2006 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200701 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200702 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200703 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200704 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200705 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 200706 => [ 0, 20,41.25, 40, 81.75, 60,122.25 ], 2007 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200801 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200802 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200803 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200804 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200805 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 200806 => [ 0, 20,45.50, 40, 90.00, 60,134.50 ], 2008 => [ 0, 20,52.50, 40,103.50, 60,154.75 ], 2009 => [ 0, 20,52.50, 40,103.50, 60,154.75 ], 2010 => [ 0, 20,52.50, 40,103.50, 60,154.75 ], 2011 => [ 0, 20,58.00, 40,113.00, 60,168.00 ], 2012 => [ 0, 20,58.00, 40,113.00, 60,168.00 ], 2013 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2014 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2015 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2016 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2017 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2018 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2019 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2020 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2021 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], 2022 => [ 1, 20,58.00, 40,113.00, 60,168.00 ], ); my($km,$year)=@_; $year||=100*(1900+(localtime(time))[5]) +1+(localtime(time))[6]; $year/=100 unless($Wert{$year}); return undef unless($Wert{$year}); my($pp, $pe, @pp)=(0,0,@{$Wert{$year}}); $pe=2*$km/12*shift @pp; $pp=shift @pp while(@pp and $km>=shift @pp); return ($pp,$pe); } ####################################################################################################################### # $vekehrsAbsetzbetrag=verkAB($v,$year) # \ \________ Jahr der Bemessung # \__________ zu versteuerndes Einkommen (Brutto-SV-Absetzbeträge) sub verkAB { my($v,$year)=@_; return 54.00 # Arbeitnehmerabsetzbetrag (war öS 750,00) +291.00 if($year<2016); # Verkehrsabsetzbetrag (war öS 4000,00) return 400.00; # Verkehrsabsetzbetrag ab 1.1.2016 #----------------------------------------------------- # EStG §33 vom 30.10.2019 # (5) Bei Einkünften aus einem bestehenden Dienstverhältnis stehen folgende Absetzbeträge zu: # 1. Ein Verkehrsabsetzbetrag von 400 Euro jährlich. # 2. Bei Anspruch auf ein Pendlerpauschale gemäß § 16 Abs. 1 Z 6 erhöht sich der Verkehrsabsetzbetrag auf 690 Euro, # wenn das Einkommen des Steuerpflichtigen 12 200 Euro im Kalenderjahr nicht übersteigt. Der erhöhte # Verkehrsabsetzbetrag vermindert sich zwischen Einkommen von 12 200 Euro und 13 000 Euro gleichmäßig # einschleifend auf 400 Euro. # 3. Der Verkehrsabsetzbetrag gemäß Z 1 oder 2 erhöht sich um 300 Euro (Zuschlag), wenn das Einkommen des # Steuerpflichtigen 15 500 Euro im Kalenderjahr nicht übersteigt. Der Zuschlag vermindert sich zwischen # Einkommen von 15 500 Euro und 21 500 Euro gleichmäßig einschleifend auf Null. # # ABER ... # # laut z.B. https://www.ketreuhand.at/Newsletter-1903/Steuerreform-2020/Steuerreform-2020.htm # "Der Zuschlag soll nur im Rahmen der Veranlagung berücksichtigt werden können." # # return 400.00 if($year<2020); # Verkehrsabsetzbetrag vor 2020 # # return 400.00+300.00 if(15500>$v); # voller Verkehrsabsetzbetrag unter 15.500,-/a # return 400.00 if(21500<$v); # kein Verkehrsabsetzbetrag über 21.500,-/a (§33(5)Z3 EStG vom 30.10.2019) # # return 400.00+300.00 * (21500-$v) # / (21500-15500); # Einschleifregelung zw. 15.500,- und 21.500,- } ####################################################################################################################### # $pensionistenAbsetzbetrag=penskAB($v,$year) # \ \________ Jahr der Bemessung # \__________ Bemessungsgrundlage (Monatsbrutto-SV) sub pensAB { my %Wert= ( #----------------------------------------------------- # EStG vom 30.12.2000 (ab 1.1.2001) # (6) Soweit einem Steuerpflichtigen die Absetzbeträge nach Abs. 5 nicht zustehen, hat er Anspruch auf einen # Pensionistenabsetzbetrag bis zu 5 500 S jährlich [...]. Der Pensionistenabsetzbetrag vermindert sich # gleichmäßig einschleifend zwischen zu versteuernden Pensionsbezügen von 230 000 S und 300 000 S auf Null. 2001 => [ 400, 16715, 21800 ], #----------------------------------------------------- # EStG vom 1.1.2002 (ab 1.1.2002) # (6) Soweit einem Steuerpflichtigen die Absetzbeträge nach Abs. 5 nicht zustehen, hat er Anspruch auf einen # Pensionistenabsetzbetrag bis zu 400 Euro jährlich [...]. Der Pensionistenabsetzbetrag vermindert sich # gleichmäßig einschleifend zwischen zu versteuernden Pensionsbezügen von 16 715 Euro und 21 800 Euro auf Null. 2002 => [ 400, 16715, 28000 ], 2003 => [ 400, 16715, 28000 ], 2004 => [ 400, 16715, 28000 ], #----------------------------------------------------- # EStG vom 30.12.2004 (ab 1.1.2005) # (6) Stehen einem Steuerpflichtigen die Absetzbeträge nach Abs. 5 nicht zu, hat er Anspruch auf einen # Pensionistenabsetzbetrag bis zu 400 Euro jährlich [...]. Der Pensionistenabsetzbetrag vermindert sich # gleichmäßig einschleifend zwischen zu versteuernden Pensionsbezügen von 17.000 Euro und 25.000 Euro auf Null. 2005 => [ 400, 17000, 25000 ], 2006 => [ 400, 17000, 25000 ], 2007 => [ 400, 17000, 25000 ], 2008 => [ 400, 17000, 25000 ], 2009 => [ 400, 17000, 25000 ], 2010 => [ 400, 17000, 25000 ], 2011 => [ 400, 17000, 25000 ], 2012 => [ 400, 17000, 25000 ], 2013 => [ 400, 17000, 25000 ], 2014 => [ 400, 17000, 25000 ], 2015 => [ 400, 17000, 25000 ], 2016 => [ 400, 17000, 25000 ], 2017 => [ 400, 17000, 25000 ], 2018 => [ 400, 17000, 25000 ], 2019 => [ 400, 17000, 25000 ], #----------------------------------------------------- # EStG vom 30.10.2019 (ab 1.1.2020) # (6) # 3. Liegen die Voraussetzungen für einen erhöhten Pensionistenabsetzbetrag nach der Z 1 nicht vor, beträgt der # Pensionistenabsetzbetrag 600 Euro. Dieser Absetzbetrag vermindert sich gleichmäßig einschleifend zwischen # zu versteuernden laufenden Pensionseinkünften von 17 000 Euro und 25 000 Euro auf Null. 2020 => [ 600, 17000, 25000 ], 2021 => [ 600, 17000, 25000 ], 2022 => [ 600, 17000, 25000 ], ); my($v,$year)=@_; my($ab,$u,$o)=@{$Wert{$year}}; return $ab if($v<=$u); # voller Pensionistenabsetzbetrag unter ... return 0.00 if($v>=$o); # kein Pensionistenabsetzbetrag über ... return $ab * ($o-$v) / ($o-$u); # Einschleifregelung dazwischen ... } ####################################################################################################################### sub allgAB { my %Wert= ( # §33 EStG # # (3) Ein allgemeiner Steuerabsetzbetrag von 8 840 S jährlich steht jedem Steuerpflichtigen zu. # Übersteigt das Einkommen 200 000 S, so vermindert sich der Absetzbetrag gleichmäßig in einem # solchen Ausmaß, dass sich bei einem Einkommen von 500 000 S kein Absetzbetrag mehr ergibt. 1999 => [ 1758, 642, 36337, -642 ], # (3) Ein allgemeiner Steuerabsetzbetrag von 12 200 S jährlich steht jedem Steuerpflichtigen zu. # Der allgemeine Steuerabsetzbetrag verändert sich nach Maßgabe der folgenden Bestimmungen: # von 122.000 öS bis 135.000 öS um .......... -1600 öS # von 135.000 öS bis 150.000 öS um .......... +1300 öS # von 150.000 öS bis 200.000 öS um .......... -500 öS. # von 200.000 öS bis 250.000 öS um .......... -2000 öS # von 250.000 öS bis 400.000 öS um .......... -2900 öS # von 400.000 öS bis 500.000 öS um .......... -4000 öS # von 500.000 öS bis 700.000 öS um .......... -2000 öS. 2000 => [ 8866, 887, 9811, -116, 10901, 94, 14535, -36, 18168, -146, 21800, -221, 29070, -291, 36337, -146 ], # Für Arbeitnehmer oder Pensionisten ohne Alleinverdiener- oder # Alleinerzieherabsetzbetrag verändert sich der allgemeine # Steuerabsetzbetrag gleichmäßig einschleifend für Einkommensteile # von 122.000 öS bis 135.000 öS um .......... -1600 öS # von 135.000 öS bis 150.000 öS um .......... +1300 öS # von 150.000 öS bis 200.000 öS um .......... -500 öS # von 200.000 öS bis 250.000 öS um .......... -2000 öS # von 250.000 öS bis 300.000 öS um .......... -967 öS # von 300.000 öS bis 487.400 öS um .......... -8433 öS 2001 => [ 8866, 887, 9811, -116, 10901, 94, 14535, -36, 18168, -146, 21800, -70, 35421, -613 ], # (3) Ein allgemeiner Steuerabsetzbetrag von 887 Euro jährlich steht jedem Steuerpflichtigen zu. # Der allgemeine Steuerabsetzbetrag verändert sich nach Maßgabe der folgenden Bestimmungen: # von 8.866 Euro bis 9.811 Euro um ........ -116 Euro # von 9.811 Euro bis 10.901 Euro um ........ +94 Euro # von 10.901 Euro bis 14.535 Euro um ........ -36 Euro # von 14.535 Euro bis 18.168 Euro um ........ -146 Euro # von 18.168 Euro bis 21.800 Euro um ........ -70 Euro # von 21.800 Euro bis 35.421 Euro um ........ -613 Euro 2002 => [ 8866, 887, 9811, -116, 10901, 94, 14535, -36, 18168, -146, 21800, -70, 35421, -613 ], 2003 => [ 8866, 887, 9811, -116, 10901, 94, 14535, -36, 18168, -146, 21800, -70, 35421, -613 ], # (3) Ein allgemeiner Steuerabsetzbetrag von 1 264 Euro jährlich # steht jedem Steuerpflichtigen zu. Der allgemeine Steuerabsetzbetrag # vermindert sich gleichmäßig einschleifend für die Einkommensteile # von 10.000 Euro bis 15.000 Euro um ........ 375 Euro # von 15.000 Euro bis 21.800 Euro um ........ 272 Euro # von 21.800 Euro bis 35.511 Euro um ........ 617 Euro 2004 => [ 10000, 1264, 15000, -375, 21800, -272, 35511, -617 ], ); my($v,$year)=@_; if($Wert{$year}) { my($i,$m)=(0,$Wert{$year}[1]); return $m if($v<$Wert{$year}[0]); while($Wert{$year}[$i+3]) { return $m+ $Wert{$year}[$i+3]*($v-$Wert{$year}[$i])/ ($Wert{$year}[$i+2] -$Wert{$year}[$i]) if($v<$Wert{$year}[$i+2]); $m+=$Wert{$year}[$i+3]; $i+=2; } } return 0 } ####################################################################################################################### 1;

Vereinfachte Berechnung des Nettogehalts für Angestellte und Pensionisten von 2002 bis 2021 (perl-Modul)
(25.6kB)

download