//*******************************************
//DO NOT REMOVE THIS COPYWRITE INFO!
//IRA to Roth Conversion Calculator
//2004 Daniel C. Peterson ALL RIGHTS RESERVED
//Created: 01/16/2004
//Last Modified: 10/31/2009
//This script may not be copied, edited, distributed or reproduced
//without express written permission from
//Daniel C. Peterson of Web Winder Website Services
//For commercial use rates, contact:
//Dan Peterson:
//Web Winder Website Services
//P.O. Box 11
//Bemidji, MN  56619
//dan@webwinder.com
//http://www.webwinder.com
//Commercial User Licence #:5754-1409-121-1195
//Commercial Licence Date:2010-05-03
//*******************************************



function FVsingleDep(prin, intRate, numMonths, numCompPerYr) {

var i = 0;
var intEarn = 0;
var singleFV = prin;

intRate /= 100;

if(numCompPerYr == "" || numCompPerYr == 0) {
   numCompPerYr = 12;
}
intRate /= numCompPerYr;

var numPeriods = numMonths / 12 * numCompPerYr;

singleFV = Math.pow((eval(1) + eval(intRate)), numPeriods) * singleFV;

return singleFV;

}



function computeAnnualPayment(prin, years, intRate) {

var pmtAmt = 0;

if(intRate == 0) {
   pmtAmt = prin / years;
} else {
   
   if (intRate >= 1.0) {
     intRate = intRate / 100.0;
   }

   var pow = 1;
   for (var j = 0; j < years; j++)
      pow = pow * (1 + intRate);

   pmtAmt = (prin * pow * intRate) / (pow - 1);

}

return pmtAmt;

}




function sn(num) {

   num=num.toString();


   var len = num.length;
   var rnum = "";
   var test = "";
   var j = 0;

   var b = num.substring(0,1);
   if(b == "-") {
      rnum = "-";
   }

   for(i = 0; i <= len; i++) {

      b = num.substring(i,i+1);

      if(b == "0" || b == "1" || b == "2" || b == "3" || b == "4" || b == "5" || b == "6" || b == "7" || b == "8" || b == "9" || b == ".") {
         rnum = rnum + "" + b;

      }

   }

   if(rnum == "" || rnum == "-") {
      rnum = 0;
   }

   rnum = Number(rnum);

   return rnum;

}



function fns(num, places, comma, type, show) {

    var sym_1 = "$";
    var sym_2 = ""; 

    var isNeg=0;

    if(num < 0) {
       num=num*-1;
       isNeg=1;
    }

    var myDecFact = 1;
    var myPlaces = 0;
    var myZeros = "";
    while(myPlaces < places) {
       myDecFact = myDecFact * 10;
       myPlaces = Number(myPlaces) + Number(1);
       myZeros = myZeros + "0";
    }
    
	onum=Math.round(num*myDecFact)/myDecFact;
		
	integer=Math.floor(onum);

	if (Math.ceil(onum) == integer) {
		decimal=myZeros;
	} else{
		decimal=Math.round((onum-integer)* myDecFact)
	}
	decimal=decimal.toString();
	if (decimal.length<places) {
        fillZeroes = places - decimal.length;
	   for (z=0;z<fillZeroes;z++) {
        decimal="0"+decimal;
        }
     }

   if(places > 0) {
      decimal = "." + decimal;
   }

   if(comma == 1) {
	integer=integer.toString();
	var tmpnum="";
	var tmpinteger="";
	var y=0;

	for (x=integer.length;x>0;x--) {
		tmpnum=tmpnum+integer.charAt(x-1);
		y=y+1;
		if (y==3 & x>1) {
			tmpnum=tmpnum+",";
			y=0;
		}
	}

	for (x=tmpnum.length;x>0;x--) {
		tmpinteger=tmpinteger+tmpnum.charAt(x-1);
	}


	finNum=tmpinteger+""+decimal;
   } else {
      finNum=integer+""+decimal;
   }

    if(isNeg == 1) {
       if(type == 1 && show == 1) {
          finNum = "-" + sym_1 + "" + finNum + "" + sym_2;
       } else {
          finNum = "-" + finNum;
       }
    } else {
       if(show == 1) {
          if(type == 1) {
             finNum = sym_1 + "" + finNum + "" + sym_2;
          } else
          if(type == 2) {
             finNum = finNum + "%";
          }

       }

    }

	return finNum;
}


function computeForm(form) {

   var VcurrentAmt = sn(document.calc.currentAmt.value);
   var VyearsTillRetire = sn(document.calc.yearsTillRetire.value);
   var VbeforeSaveRate = sn(document.calc.beforeSaveRate.value);
   var VbeforeTaxRate = sn(document.calc.beforeTaxRate.value);
   var VretireYears = sn(document.calc.retireYears.value);
   var VafterSaveRate = sn(document.calc.afterSaveRate.value);
   var VafterTaxRate = sn(document.calc.afterTaxRate.value);

   if(VcurrentAmt == 0) {
      alert("Please enter the current taxable amount in traditional IRA.");
      document.calc.currentAmt.focus();
   } else
   if(document.calc.yearsTillRetire.value.length == 0) {
      alert("Please the number of years till you retire.");
      document.calc.yearsTillRetire.focus();
   } else
   if(VbeforeSaveRate == 0) {
      alert("Please enter the expected annual rate of return on investments before retirement.");
      document.calc.beforeSaveRate.focus();
   } else
   if(VbeforeTaxRate == 0) {
      alert("Please enter your pre-retirement Federal tax rate.");
      document.calc.beforeTaxRate.focus();
   } else
   if(VretireYears == 0) {
      alert("Please enter the number of years of anticipated retirement.");
      document.calc.retireYears.focus();
   } else
   if(VafterSaveRate == 0) {
      alert("Please enter the expected annual rate of return on investsments after retirement.");
      document.calc.afterSaveRate.focus();
   } else
   if(VafterTaxRate == 0) {
      alert("Please enter the your anticipated Federal tax rate during retirement.");
      document.calc.afterTaxRate.focus();
   } else {

      var monthsTillRetire = VyearsTillRetire * 12;

      VtradRetireValue = FVsingleDep(VcurrentAmt, VbeforeSaveRate, monthsTillRetire, 1)
      document.calc.tradRetireValue.value = fns(VtradRetireValue,0,1,1,1);

      document.calc.rothRetireValue.value = fns(VtradRetireValue,0,1,1,1);

      var VtradAnnDistribute = computeAnnualPayment(VtradRetireValue, VretireYears, VafterSaveRate)
      document.calc.tradAnnDistribute.value = fns(VtradAnnDistribute,0,1,1,1);

      document.calc.rothAnnDistribute.value = fns(VtradAnnDistribute,0,1,1,1);

      var VtradTotDistribute = VretireYears * VtradAnnDistribute;
      document.calc.tradTotDistribute.value = fns(VtradTotDistribute,0,1,1,1);

      var VrothTotDistribute = VretireYears * VtradAnnDistribute;
      document.calc.rothTotDistribute.value = fns(VrothTotDistribute,0,1,1,1);

      if(VbeforeTaxRate >= 1) {
         VbeforeTaxRate /= 100;
      }
      var VtradTaxesDue = VcurrentAmt * VbeforeTaxRate;
      document.calc.tradTaxesDue.value = fns(VtradTaxesDue,0,1,1,1);

      if(VbeforeSaveRate >= 1) {
         VbeforeSaveRate /= 100;
      }
      var taxAdjustedRate = VbeforeSaveRate * (1 - VbeforeTaxRate);
      var VlostInterest = FVsingleDep(VtradTaxesDue, taxAdjustedRate, VyearsTillRetire * 12, 1)
      document.calc.lostInterest.value = fns(VlostInterest,0,1,1,1);

      if(VafterTaxRate >= 1) {
         VafterTaxRate /= 100;
      }
      var VpostRetireTax = VafterTaxRate * VtradAnnDistribute;
      document.calc.postRetireTax.value = fns(VpostRetireTax,0,1,1,1);

      var VtradTotTaxDue = VlostInterest;
      document.calc.tradTotTaxDue.value = fns(VtradTotTaxDue,0,1,1,1);

      var VrothTotTaxDue = VretireYears * VpostRetireTax;
      document.calc.rothTotTaxDue.value = fns(VrothTotTaxDue,0,1,1,1);

      var VtradNetValue =  VtradTotDistribute - VtradTotTaxDue;
      document.calc.tradNetValue.value = fns(VtradNetValue,0,1,1,1);

      var VrothNetValue =  VrothTotDistribute - VrothTotTaxDue;
      document.calc.rothNetValue.value = fns(VrothNetValue,0,1,1,1);

      var VmostValueText = "";
      var Vdiff = 0;
      if(VtradNetValue > VrothNetValue) {
         VmostValueText = "Tradional";
         Vdiff = VtradNetValue - VrothNetValue;
      } else
      if(VtradNetValue < VrothNetValue) {
         VmostValueText = "Roth";
         Vdiff = VrothNetValue - VtradNetValue;
      } else {
         VmostValueText = "Equal";
      }
      document.calc.mostValueText.value = VmostValueText + " IRA: +" + fns(Vdiff,0,1,1,1);

   }
}

function clear_results(form) {

   document.calc.tradRetireValue.value = "";
   document.calc.rothRetireValue.value = "";
   document.calc.tradAnnDistribute.value = "";
   document.calc.rothAnnDistribute.value = "";
   document.calc.tradTotDistribute.value = "";
   document.calc.rothTotDistribute.value = "";
   document.calc.tradTaxesDue.value = "";
   document.calc.lostInterest.value = "";
   document.calc.postRetireTax.value = "";
   document.calc.tradTotTaxDue.value = "";
   document.calc.rothTotTaxDue.value = "";
   document.calc.tradNetValue.value = "";
   document.calc.rothNetValue.value  = "";
   document.calc.mostValueText.value = "";

}