Code

Var vAmountToTax as Money
Var vTierOne as Money
Var vTierTwo as Money
Var vTierThree as Money
Var vTotalTax as Money

//Here is where you would set the Amount Taxable
vAmountToTax = 65238

	vTierOne = 0
	vTierTwo = 0
	vTierThree = 0
	//Tier One is 0 to 14,000
	vTierOne = vAmountToTax - 14000
	If vTierOne < 0 Then
	{
		vTierOne = vAmountToTax
	}
	Else
	{
		vTierOne = 14000
	}
	vAmountToTax = vAmountToTax - vTierOne
	If vAmountToTax > 0 Then
	{
		//Tier Two is now 0 to 34,0000 (48,000-14,000)
		vTierTwo = vAmountToTax - 34000
		If vTierTwo < 0 Then
		{
			vTierTwo = vAmountToTax
		}
		Else
		{
			vTierTwo = 34000
		}
		vAmountToTax = vAmountToTax - vTierTwo
		If vAmountToTax > 0 Then
		{
			//The Rest is Tier Three
			vTierThree = vAmountToTax
		}
	}
	vTotalTax = (vTierOne * .125) + (vTierTwo * .21) + (vTierThree * .33)

Writeln(vTotalTax)