Perlscript to calculate thai incometax13.11.15

#!/usr/bin/perl
require "cgi-lib.pl";

print "Content-type:text/html\n\n";
print "<html>";
print "<head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>";
print "<body bgcolor='white'>";

&ReadParse(*input);

############## BEGIN DEBUG
### remove these lines if you want to debug 
#foreach $e (keys(%input) )
#{
#	print "$e = $input{$e} ";
#}
############## END DEBUG

print "<h2>PERSONAL INCOME TAX CALCULATION</h2>";

$salaryall = $input{salary} * 12;
$salary_tax = $input{salary_tax} * 12;

# total is come from all of money + bonus + salary tax

$totalincome = $salaryall+$input{bonus}+$salary_tax;

print "Salary per month ($input{salary}) x 12 = $salaryall ";
print "Salary tax ($input{salary_tax}) x 12 = $salary_tax ";
print "Total Income = $totalincome ";

$percent = 0.4 * $totalincome;

print "40% of $totalincome = $percent ";

if ( $percent >= 60000 ) {
	$percent = 60000;
}

$totalincome -= $percent;

print "Total Income = $totalincome ";

$totalincome -= $input{self};
#print "cut self ( $input{self} ) = $totalincome ";

$totalincome -= $input{spouse};
#print "cut spouse ( $input{spouse} ) = $totalincome ";

$pre_children = 15000 * $input{pre_children};
$totalincome -= $pre_children;
#print "cut pre children ($input{pre_children} boy) = $pre_children = $totalincome ";

$school_children = 17000 * $input{school_children};
$totalincome -= $school_children;
#print "cut school children ($input{school_children}) = $school_children = $totalincome ";

if ($input{insurance} >= 10000) {
	$input{insurance} = 10000;
}
$totalincome -= $input{insurance};
#print "cut insurance ( $input{insurance} ) = $totalincome ";

$assessableincome = $totalincome;

print "Assessable Income = $assessableincome ";

## cut off first 50,000
if ( $assessableincome > 50000 ) {
	$totalincome-=50000;
}else{
	print "Assessable income is not over 50,000 ";
	die;
}
$anuaytax=0;

print "<table border=1 cellspacing=0 cellpadding=5>";
print "";
print "<tr><td width=250 bgcolor='#FFFFCC'> Taxation </td> <td bgcolor='#FFFFCC'> Tax </td>";

if (( $assessableincome > 50000)&&( $totalincome>50000)) {
	$temptax = 50000 * (5/100);
	print "<tr><td width=250>";
	print "50,001 - 100,000 (5%) </td> <td>",$temptax,"</td>";
	$totalincome-=50000;

#	print "5% off now have $totalincome ";

$anuaytax += $temptax;

#print "5% Anuay Tax = $anuaytax ";

}else{
	$temptax += $totalincome * (5/100);
	$anuaytax += $temptax;
	print "<tr><td width=250>";
	print "50,000 - 100,000 (5%)</td> <td> $temptax</td>";
	print "<tr><td width=250>";
	print "100,001 - 500,000 (10%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "500,001 - 1,000,000 (20%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "1,000,001 - 4,000,000 (30%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "4,000,001 upwards (37%) </td> <td> 0 </td>";

&sum();
}

if (( $assessableincome > 400000 )&&( $totalincome > 400000 )) 
{
	$temptax = 400000 * (10/100);
	print "<tr><td width=250>";
	print "100,001 - 500,000 (10%) </td> <td> $temptax </td>";
	$totalincome-=400000;
#	print "10% now have $totalincome ";
	$anuaytax += $temptax;
	#print "10% Anuay Tax = $anuaytax ";
}else{
	$temptax = $totalincome * (10/100);
	$anuaytax += $temptax;
	print "<tr><td width=250>";
	print "100,001 - 500,000 (10%) </td> <td> $temptax </td>";
	print "<tr><td width=250>";
	print "500,001 - 1,000,000 (20%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "1,000,001 - 4,000,000 (30%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "4,000,001 upwards (37%) </td> <td> 0 </td>";

&sum();
}

if ( ( $assessableincome > 500000 )&&( $totalincome > 500000 ) )
{
	$temptax = 500000 * (20/100);
	print "<tr><td width=250>";
	print "500,001 - 1,000,000 (20%) </td> <td> $temptax </td>";
	$totalincome-=500000;
#	print "now have $totalincome ";
	$anuaytax += $temptax;
	#print "20% Anuay Tax = $anuaytax ";
}else{
	$temptax = $totalincome * (20/100);
	$anuaytax += $temptax;
	#print "now have $totalincome ";

print "<tr><td width=250>";
	print "500,001 - 1,000,000 (20%) </td> <td> $temptax </td>";
	print "<tr><td width=250>";
	print "1,000,001 - 4,000,000 (30%) </td> <td> 0 </td>";
	print "<tr><td width=250>";
	print "4,000,001 upwards (37%) </td> <td> 0 </td>";

&sum();
}

if ( ( $assessableincome > 4000000 )&&( $totalincome > 4000000 ) )
{
	$temptax = 4000000 * (30/100);
	print "<tr><td width=250>";
	print "1.000,001 - 4,000,000 (30%) </td> <td> $temptax </td>";
	$totalincome-=4000000;
#	print "now have $totalincome ";
	$anuaytax += $temptax;
	#print "30% Anuay Tax = $anuaytax ";
}else{
	$temptax = $totalincome * (30/100);
	$anuaytax += $temptax;

print "<tr><td width=250>";
	print "1,000,001 - 4,000,000 (30%) </td> <td> $temptax </td>";
	print "<tr><td width=250>";
	print "4,000,001 upwards (37%) </td> <td> 0 </td>";

&sum();
}

if ( $assessableincome > 4000000 )
{
	$temptax = $totalincome * (37/100);
	print "<tr><td width=250>";
	print "4,000,001 upwards (37%) </td> <td> $temptax </td>";
	$anuaytax += $temptax;
}
print "</table>";

sub sum(){
	print "Anuay Tax = $anuaytax ";
	print "Monthly Income Tax = ",$anuaytax / 12 ," ";
	die;
}

http://www.thailand-accounting.com/incometax.html

Anonymous

Perlscript to calculate thai incometax13.11.15

Information Epoch 1747228030