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) then
 m1=18200
 m2=37000
 m3=80000
 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 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(2013,44000)

or

=Tax2013(44000)

And now some notes so that people can find this post. This post has the formula for Australia tax 2013, 2012, and lots of 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.
 

Leave a Reply