blog.bloke.com

Function Tax(year,amount)
 m1=-1
 ret=-1
 if (year = 2005) then
 m1=6000
 m2=21600
 m3=58000
 m4=70000
 r1=.17
 r2=.3
 r3=.42
 r4=.45
 elseif (year = 2006) then
 m1=6000
 m2=21600
 m3=63000
 m4=95000
 r1=.15
 r2=.3
 r3=.42
 r4=.47
 elseif (year = 2007) then
 m1=6000
 m2=25000
 m3=75000
 m4=150000
 r1=.15
 r2=.3
 r3=.40
 r4=.45
 elseif (year = 2008) then
 m1=6000
 m2=30000
 m3=75000
 m4=150000
 r1=.15
 r2=.3
 r3=.40
 r4=.45
 elseif (year = 2009) then
 m1=6000
 m2=34000
 m3=80000
 m4=180000
 r1=.15
 r2=.3
 r3=.4
 r4=.45
 elseif (year = 2010) then
 m1=6000
 m2=35000
 m3=80000
 m4=180000
 r1=.15
 r2=.3
 r3=.38
 r4=.45
 elseif (year = 2011) then
 m1=6000
 m2=37000
 m3=80000
 m4=180000
 r1=.15
 r2=.3
 r3=.37
 r4=.45
 elseif (year = 2012) then
 m1=6000
 m2=37000
 m3=80000
 m4=180000
 r1=.15
 r2=.3
 r3=.37
 r4=.45
 elseif (year = 2013 or year = 2014 or year = 2015 or year = 2016) then
 m1=18200
 m2=37000
 m3=80000
 m4=180000
 r1=.19
 r2=.325
 r3=.37
 r4=.45
 elseif (year = 2017 or year = 2018) then
 m1=18200
 m2=37000
 m3=87000
 m4=180000
 r1=.19
 r2=.325
 r3=.37
 r4=.45
 else
 ret=-1
 endif
 if (m1 = -1) then
 ret = -1
 else
 if (amount < m1) then
 ret = 0
 elseif (amount <= m2) then
 ret = (amount-m1) * r1
 elseif (amount <= m3) then
 ret = (amount-m2) * r2 + (m2-m1) * r1
 elseif (amount <= m4) then
 ret = (amount-m3) * r3 + (m3-m2) * r2 + (m2-m1) * r1
 else
 ret = (amount-m4) * r4 + (m4-m3) * r3 + (m3-m2) * r2 + (m2-m1) * r1
 endif
 endif
 Tax=ret
End Function

Function Tax2018( amount)
 Tax2018 = Tax(2018,amount)
End Function
Function Tax2017( amount)
 Tax2017 = Tax(2017,amount)
End Function
Function Tax2016( amount)
 Tax2016 = Tax(2016,amount)
End Function
Function Tax2015( amount)
 Tax2015 = Tax(2015,amount)
End Function
Function Tax2014( amount)
 Tax2014 = Tax(2014,amount)
End Function
Function Tax2013( amount )
 Tax2013 = Tax(2013,amount)
End Function
Function Tax2012( amount )
 Tax2012 = Tax(2012,amount)
End Function
Function Tax2011( amount )
 Tax2011 = Tax(2011,amount)
End Function
Function Tax2010( amount )
 Tax2010 = Tax(2010,amount)
End Function
Function Tax2009( amount )
 Tax2009 = Tax(2009,amount)
End Function
Function Tax2008( amount )
 Tax2008 = Tax(2008,amount)
End Function
Function Tax2007( amount )
 Tax2007 = Tax(2007,amount)
End Function
Function Tax2006( amount )
 Tax2006 = Tax(2006,amount)
End Function
Function Tax2005( amount )
 Tax2005 = Tax(2005,amount)
End Function

=Tax(2017,44000)

=Tax2017(44000)