Tools -> Macros -> Organize Macros -> (LibreOffice|OpenOffice) Basic
Click Edit, and paste the following in there: (not responsible for any errors, but please let me know if there are any!)
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
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
Say you earned $44,000
=Tax(2017,44000)
or
=Tax2017(44000)
And now some notes so that people can find this post. This post has the formula for Australia tax 2017-18, 2016-17, and previous years. Very easy to use function to calculate Australian taxes for open office and libre office, which I call oocalc. I hope you find it useful, it’s certainly saved me a lot of time.