var	err_flg	=	"";
var	err_msg	=	"";
var	edt_riritu	=	0;


function setriritu(inform) {
        for (ix1 = 0; ix1 < inform.syohin_tbl.options.length; ix1 ++) {
          if (inform.syohin_tbl.options[ix1].selected == true) {
             edt_riritu = inform.syohin_tbl.options[ix1].value;
          }
        }
        inform.riritu.value = edt_riritu;
		edt_riritu = parseFloat(edt_riritu);
}

function calc(inform) {
	var	edt_kariire	=	0;
	var	edt_year	=	0;
	var	edt_month	=	0;
	var	edt_bounus	=	0;
	var	cal_tbounus	=	0;
	var	cal_tmaituki	=	0;
	var	cal_mkaisu	=	0;
	var	cal_bkaisu	=	0;
	var	cal_bounus	=	0;
	var	cal_maituki	=	0;
	//	各入力項目work_areaにセット(1)
		edt_riritu = parseFloat(inform.riritu.value);
        for (ix1 = 0; ix1 < inform.year_tbl.options.length; ix1 ++) {
          if (inform.year_tbl.options[ix1].selected == true) {
             edt_year = inform.year_tbl.options[ix1].value;
          }
        }
		edt_year = parseInt(edt_year);
        for (ix1 = 0; ix1 < inform.month_tbl.options.length; ix1 ++) {
          if (inform.month_tbl.options[ix1].selected == true) {
             edt_month = inform.month_tbl.options[ix1].value;
          }
        }
		edt_month = parseInt(edt_month);
        for (ix1 = 0; ix1 < inform.bounus_tbl.options.length; ix1 ++) {
          if (inform.bounus_tbl.options[ix1].selected == true) {
             edt_bounus = inform.bounus_tbl.options[ix1].value;
          }
        }
		edt_bounus = parseInt(edt_bounus);
	//	各入力項目チェック
		err_flg	=	""
		err_msg	=	""
		if	(inform.kariire.value == "")	{
			err_flg = "error";
			err_msg = "借入金額を入力して下さい \n";
		}
		if	(edt_riritu == "")	{
			err_flg = "error";
			err_msg = err_msg + "利率を入力して下さい \n";
		}
		if	(edt_riritu < 0.001 || edt_riritu > 99.999)	{
			err_flg = "error";
			err_msg = err_msg + "利率0.001％以上99.999％以内の数字を入力してください \n";
		}			
		if	(edt_year == 0 && edt_month == 0)	{
			err_flg = "error";
			err_msg = err_msg + "返済年月を入力して下さい \n";
		}
		if (err_msg != "") {
			alert (err_msg);
			return;
		}
		
	//	各入力項目work_areaにセット(2)
		edt_kariire	=	inform.kariire.value	*	10000;		
	//  ボーナス返済分計算
		cal_tbounus = edt_kariire * edt_bounus / 100;
		cal_tmaituki = edt_kariire - cal_tbounus;
	//	毎月返済回数計算
		cal_mkaisu = edt_year * 12 + edt_month;
	//	ボーナス返済回数計算
		cal_bkaisu = parseInt((edt_year * 12 + edt_month) / 6);
	//	毎月返済額計算
		cal_maituki = parseInt(cal_tmaituki * (edt_riritu / 100 / 12) / (1 - (Math.pow((1 + edt_riritu / 100 / 12),(cal_mkaisu * (-1)))))); 
        inform.h_maituki.value = cal_maituki;
	//	ボーナス毎返済額計算
		cal_bounus = parseInt(cal_tbounus * (edt_riritu / 100 / 2) / (1 - (Math.pow((1 + edt_riritu / 100 / 2),(cal_bkaisu * (-1)))))); 
		if	(isNaN(cal_bounus) || edt_bounus == 0)	{
			cal_bounus = 0;
			inform.h_bounus.value = 0;
                        inform.h_tbounus.value = 0;
		}   else   {
                        inform.h_bounus.value = cal_bounus;
	//	ボーナス時返済額合計
                        inform.h_tbounus.value = cal_bounus + cal_maituki;
		}
	//	年間返済額合計
        inform.h_nenkan.value = cal_bounus * 2 + cal_maituki * 12;
	//	総返済額合計
        inform.h_all.value = cal_bounus * cal_bkaisu + cal_maituki * cal_mkaisu;
}