ÿþ// finCalcMain.js - Copyright Summersoft 2011

//        

// js requirements:

//



//alert("+finCalcMain.js - loading");



var spreadSheetDebug = false;



//alert(1);



function refreshRC(cellName, value) {

    var oldValue;

    var newValue;

    var newImgName;

    

    if (cellName == "F6" || cellName == "F16") {

        // input fields

    } else {

        try {

            oldValue = $(cellName).firstChild.innerHTML;

            newValue = addCommas(round_decimals(value, 2).toFixed(2));

            if (newValue != oldValue) {

                if ($(cellName).parentNode.altImgNumber == undefined) {

                    $(cellName).parentNode.altImgNumber = 0;

                }

                $(cellName).parentNode.altImgNumber = 1 - parseInt($(cellName).parentNode.altImgNumber);

                newImgName = "url(images/glowB" + $(cellName).parentNode.altImgNumber + ".gif)";

                $(cellName).innerHTML =

                    "<span style='background: " + newImgName + "'>" +

                    newValue +

                    "</span>";

            }

        } catch (ex) {

            // hidden cells might not exist in html....

        }

    }

}



//alert(2);



// vb IIF function

function iif(cond, a, b) {

    return cond ? a : b;

}



//alert(3);



function $(id) {

    return document.getElementById(id);

}



function round_decimals(original_number, decimals) {



    var result1 = original_number * Math.pow(10, decimals)

    var result2 = Math.round(result1)

    var result3 = result2 / Math.pow(10, decimals)



    //return result3.toFixed(decimals); // fails! NaN

    return result3;



}



//        

// excel requirements:

//



function calculate_payment(PV, IR, NP) {

    var PMT = (PV * IR) / (1 - Math.pow(1 + IR, -NP));

    return round_decimals(PMT, 2);

}



// excel function

function PMT(ir, np, pv, fv) {



    pv = -pv



    return calculate_payment(pv, ir, np);



    /*

    pv - present value

    ir - interest rate per month

    np - number of periods (months)

    fv - future value (residual value / balloon payment)

    */

    pmt = (ir * (pv * Math.pow((ir + 1), np) + fv)) / ((ir + 1) * (Math.pow((ir + 1), np) - 1));

    return pmt;

}



// excel function

function ROUND(num, dec) {

    return round_decimals(parseFloat(num + " "), dec);

}



// debug: test = 736.54

//refreshRC("", PMT((0.221 / 12), 24, -14184, 0));



//alert(4);



//---------------------------------------------------------------------------



//        

// evaluation requirements:

//



// current evaluation cycle

var cycle = 0;



// this is for browse page calculations

var finCalcPay = "n/a";

var finCalcDep = "n/a";

var finCalcTotal = "n/a";

var finCalcTerm = "n/a";

var finCalcInterestRate = "n/a";



function payment() {

    cycle += 1;



    //alert("calc");



    /*                

    '=======================================================================

    ' >>> NOTE! - fields not part of the calculation chain....

    '             must be evaluated as part of the output/calc/input fields !

    '             ~ otherwise the value will not refresh

    '

    '=======================================================================

    */

    var temp;



    //alert(1);        

    temp = F7(); // VAT incl

    //alert(2);

    temp = F19(); // Payment per month

    //alert(3);

    temp = F22(); // Service Fee

    //alert(4);

    temp = F23(); // Product Insurance

    //alert(5);

    temp = F24(); // Credit Life Insurance

    //alert(6);



    //

    // this is for browse page calculations

    //

    //finCalcPay = addSpaces(round_decimals( F19(), 0 )); // exludes Add-on fees!

    //finCalcPay = addSpaces(round_decimals( F26(), 0 )); // inludes Add-on fees..

    finCalcPay = (round_decimals( F26(), 0 )); // inludes Add-on fees..

    //finCalcDep = addSpaces(round_decimals( F13(), 0 )); 

    finCalcDep = (round_decimals( F13(), 0 )); 

    //finCalcTotal = addSpaces(round_decimals( F27(), 0 )); // inludes Add-on fees..

    finCalcTotal = (round_decimals( F27(), 0 )); // inludes Add-on fees..

    finCalcTerm = round_decimals( 24, 0 ); 

    finCalcInterestRate = round_decimals( F15() * 100, 1 ); 

    // debug:

    //alert(finCalcPay + " " + finCalcDep);

    

    return F27(); // Total Installment paid over loan term



}



function test() {

    alert("payment = " + payment());

}



//

// number functions

//



function addCommas(nStr) {

    nStr += '';

    x = nStr.split('.');

    x1 = x[0];

    x2 = x.length > 1 ? '.' + x[1] : '';

    var rgx = /(\d+)(\d{3})/;

    while (rgx.test(x1)) {

        x1 = x1.replace(rgx, '$1' + ',' + '$2');

    }

    return x1 + x2;

}

function addSpaces(nStr) {

    nStr += '';

    x = nStr.split('.');

    x1 = x[0];

    x2 = x.length > 1 ? '.' + x[1] : '';

    var rgx = /(\d+)(\d{3})/;

    while (rgx.test(x1)) {

        x1 = x1.replace(rgx, '$1' + ' ' + '$2');

    }

    return x1 + x2;

}



/**
* Formats the number according to the  format  string;
* adherses to the american number standard where a comma
* is inserted after every 3 digits.
*  note: there should be only 1 contiguous number in the format,
* where a number consists of digits, period, and commas
*        any other characters can be wrapped around this number, including  $ ,  % , or text
*        examples (123456.789):
*           02  - (123456) show only digits, no precision
*           0.002  - (123456.78) show only digits, 2 precision
*           0.00002  - (123456.7890) show only digits, 4 precision
*           0,0002  - (123,456) show comma and digits, no precision
*           0,000.002  - (123,456.78) show comma and digits, 2 precision
*           0,0.002  - (123,456.78) shortcut method, show comma and digits, 2 precision
*
* @method format
* @param format {string} the way you would like to format this text
* @return {string} the formatted number
* @public
*/

/*
Number.prototype.format = function(format) {
if (! isType(format,  string )) {return  ;} // sanity check 

var hasComma = -1 < format.indexOf( ,'),
psplit = format.stripNonNumeric().split( .'),
that = this; 

// compute precision
if (1 < psplit.length) {
// fix number precision
that = that.toFixed(psplit[1].length);
}
// error: too many periods
else if (2 < psplit.length) {
throw( NumberFormatException: invalid format, formats should have no more than 1 period:   + format);
}
// remove precision
else {
that = that.toFixed(0);
} 

// get the string now that precision is correct
var fnum = that.toString(); 

// format has comma, then compute commas
if (hasComma) {
// remove precision for computation
psplit = fnum.split( .'); 

var cnum = psplit[0],
parr = [],
j = cnum.length,
m = Math.floor(j / 3),
n = cnum.length % 3 || 3; // n cannot be ZERO or causes infinite loop 

// break the number into chunks of 3 digits; first chunk may be less than 3
for (var i = 0; i < j; i += n) {
if (i != 0) {n = 3;}
parr[parr.length] = cnum.substr(i, n);
m -= 1;
} 

// put chunks back together, separated by comma
fnum = parr.join( ,'); 

// add the precision back in
if (psplit[1]) {fnum +=  .  + psplit[1];}
} 

// replace the number portion of the format with fnum
return format.replace(/[\d,?\.?]+/, fnum);
};
*/



// number formatting function

// copyright Stephen Chapman 24th March 2006, 10th February 2007

// permission to use this function is granted provided

// that this copyright notice is retained intact

function formatNumber8(num, dec, thou, pnt, curr1, curr2, n1, n2) {

    var x = Math.round(num * Math.pow(10, dec));

    if (x >= 0) n1 = n2 = '';



    var y = ('' + Math.abs(x)).split('');

    var z = y.length - dec;



    if (z < 0) z--;



    for (var i = z; i < 0; i++)

        y.unshift('0');



    y.splice(z, 0, pnt);

    if (y[0] == pnt) y.unshift('0');



    while (z > 3) {

        z -= 3;

        y.splice(z, 0, thou);

    }



    var r = curr1 + n1 + y.join('') + n2 + curr2;

    return r;

}



function format_number(pnumber, decimals) {

    if (isNaN(pnumber)) { return 0 };

    if (pnumber == '') { return 0 };

    var snum = new String(pnumber);

    var sec = snum.split('.');

    var whole = parseFloat(sec[0]);

    var result = '';

    if (sec.length > 1) {

        var dec = new String(sec[1]);

        dec = String(parseFloat(sec[1]) / Math.pow(10, (dec.length - decimals)));

        dec = String(whole + Math.round(parseFloat(dec)) / Math.pow(10, decimals));

        var dot = dec.indexOf('.');

        if (dot == -1) {

            dec += '.';

            dot = dec.indexOf('.');

        }

        while (dec.length <= dot + decimals) { dec += '0'; }

        result = dec;

    } else {

        var dot;

        var dec = new String(whole);

        dec += '.';

        dot = dec.indexOf('.');

        while (dec.length <= dot + decimals) { dec += '0'; }

        result = dec;

    }

    return result;

}



function formatNumber(obj, decimal) {

    //decimal  - the number of decimals after the digit from 0 to 3

    //-- Returns the passed number as a string in the xxx,xxx.xx format.

    anynum = eval(obj.value);

    divider = 10;

    switch (decimal) {

        case 0:

            divider = 1;

            break;

        case 1:

            divider = 10;

            break;

        case 2:

            divider = 100;

            break;

        default:       //for 3 decimal places

            divider = 1000;

    }



    workNum = Math.abs((Math.round(anynum * divider) / divider));



    workStr = "" + workNum



    if (workStr.indexOf(".") == -1) { workStr += "." }



    dStr = workStr.substr(0, workStr.indexOf(".")); dNum = dStr - 0

    pStr = workStr.substr(workStr.indexOf("."))



    while (pStr.length - 1 < decimal) { pStr += "0" }



    if (pStr == '.') pStr = '';



    //--- Adds a comma in the thousands place.

    if (dNum >= 1000) {

        dLen = dStr.length

        dStr = parseInt("" + (dNum / 1000)) + "," + dStr.substring(dLen - 3, dLen)

    }



    //-- Adds a comma in the millions place.

    if (dNum >= 1000000) {

        dLen = dStr.length

        dStr = parseInt("" + (dNum / 1000000)) + "," + dStr.substring(dLen - 7, dLen)

    }

    retval = dStr + pStr

    //-- Put numbers in parentheses if negative.

    if (anynum < 0) { retval = "(" + retval + ")"; }



    //You could include a dollar sign in the return value.

    //retval =  "$"+retval

    obj.value = retval;

}



//alert("-finCalcMain.js - loaded 1");