#!/usr/bin/perl
###############################################################################################################
# Vereinfachte Berechnung des Nettogehalts für Angestellte von 2002 bis 2024:
#
# Berücksichtigt sind: Arbeitnehmer- und Verkehrsabsetzbetrag bzw. Sonderausgaben- und Webungskostenpauschale.
# Nicht berücksichtigt sind: Pendlerpauschale, Sachbezug, Alleinverdiener-, Alleinerzieher-, Unterhalts- und
# Kinderabsetzbetrag, etc. Sonderzahlungen (13.+14. Gehalt) sind nur berücksichtigt bei selektiertem "SZ".
#
# (c) 2014-2022 by Ing. Peter Grobner, peter@grobner.at, http://paudorf142.at/cgi-bin/brutto2netto.cgi
###############################################################################################################
BEGIN { push @INC,'.'; }
use CGI; $q=new CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Brutto2Netto;
my($minYEAR,$maxYEAR)=brutto2netto(); my $YEARs=join '|',$minYEAR..$maxYEAR;
my $brutto=$q->param('brutto'); my %selectet;
my $year =$q->param('year')||2022; $selectet{$year}=' selected';
my %years=(); $selectet{pens} =' checked' if($q->param('pens'));
my @netto=(); $selectet{pa} =' checked' if($q->param('pa'));
my($pa,$perN)=($selectet{pa}) ? (-1,'pro Jahr (inkl. 13.+14.Gehalt)')
: ( 0,'pro Monat');
foreach(split /\n/,$brutto)
{
my $n=$_;
my $t=($n=~s{(\d+)(\.(\d\d\d))(\,(\d\d))(\D|$)}{$1$3$4$6}g);
my $k=($n=~ s{(\d+)(\,(\d\d))(\D|$)}{$1.$3$4}g);
$year=$2 if($n=~/^\s*("?)($YEARs)(\1)(:|\s*=>)(\s|$)/); $n=~s{(\d+\.\d\d)}{ sprintf('%.2f',brutto2netto($1,$year,$pa,$q->param('pens'))); }ge;
$year=$1 if($n=~ /\D($YEARs):\s*$/);
$n=~s{\.(\d\d)(\D|$)} {,$1$2}g if($k);
$n=~s{(\d)(\d\d\d,\d\d)}{$1.$2}g if($t); push @netto,$n; $years{$year}=1;
}
my $years=join ", ",sort keys %years;
my $netto=join "\n",@netto;
if($q->param('plain'))
{
print $q->header(-type=>"text/plain").$netto;
}
else
{
my $textarea='textarea';
my $what=($q->param('pens'))? 'pension' :'gehalt';
my $who =($q->param('pens'))? 'Pensionisten':'Angestellte';
my $pens=($q->param('pens'))? 1:0;
my @euros=map { 25*$_ }(1,1..6100/25);
my $chartX1=join ',',map sprintf("'%d'",$_),@euros;
my $chartY1;
$chartY1.=sprintf("[ %s ],\n",(join ', ',map sprintf('%.2f',100-100*brutto2netto($_,$year,0,$pens)/$_),@euros));
$chartY1.=sprintf("[ %s ],\n",(join ', ',map sprintf('%.2f', 100* SV($_,$year,0,$pens)/$_),@euros));
$chartY1.=sprintf("[ %s ],\n",(join ', ',map sprintf('%.2f', 100 ),@euros));
my $chartX2=join ',',map sprintf("'%d'",$_),@euros;
my $chartY2;
$chartY2.=sprintf("[ %s ],\n",(join ', ',map sprintf('%.2f', brutto2netto($_,$year,0,$pens) ),@euros));
my $chartX3="'Bto',".join ',',($minYEAR..$maxYEAR);
my @bruttos3=map 100*$_,(1..15);
my $chartY3; foreach my $b (@bruttos3) {
$chartY3.=sprintf("[ %.2f, %s ],\n",$b,(join ', ',map sprintf('%.2f',brutto2netto($b,$_,0,$pens)),($minYEAR..$maxYEAR))); };
my $chartX4="'Bto',".join ',',($minYEAR..$maxYEAR);
my @bruttos4=map 500*$_,(1..7);
my $chartY4; foreach my $b (@bruttos4) {
$chartY4.=sprintf("[ %.2f, %s ],\n",$b,(join ', ',map sprintf('%.2f',brutto2netto($b,$_,0,$pens)),($minYEAR..$maxYEAR))); };
print $q->header(-type=>"text/html").qq|
|.CSS().qq|
Vereinfachte Berechnung des Nettogehalts für $who:
(Berücksichtigt sind: Arbeitnehmer-, Verkehrs- bzw. Pensionistensabsetzbetrag sowie Sonderausgaben- und Webungskostenpauschale.
Nicht berücksichtigt sind:|.($q->param('pa')? '':' Sonderzahlungen,').qq| Pendlerpauschale,
Sachbezug, Alleinverdiener-, Alleinerzieher-, Unterhalts- und Kinderabsetzbetrag, etc.
Siehe auch: Brutto-Netto-Rechner
des Bundesministeriums für Finanzen)