function calc(form) {



	kari = form.vkari.value;

	r_bonus = form.vr_bonus.value;

	kikan = form.vkikan.value;

	ritu = form.vritu.value; 



	if (checkvalue(form)) {



		kari *= 10000;



		if (kikan <= 0) {

			num = 0;

		}



		//小数点以下切り上げ

		if (kikan > 0) {

			num = Math.ceil(kikan/6)-1;

		}



		if (checkkari(form) && checkbonus(form) && checkkikan(form)) {

	    	ganri(form);

		}



	}

}





//未入力チェック

function checkvalue(form) {

	

	if (kari == "" && r_bonus == "" && kikan =="" && ritu =="") {

		alert("利用金額・利用期間・ボーナス返済割合・利率を入力してください。");

		return false;

	}

	

	if (kari == "") {

		alert("利用金額を入力してください。");

		return false;

	}

	

	if (kikan =="") {

		alert("利用期間を入力してください。");

		return false;

	}

	

	if (r_bonus == "") {

		alert("ボーナス返済割合を入力してください。");

		return false;

	}

	

	if (ritu =="") {

		alert("利率を入力してください。");

		return false;

	}

	

	return true;

}





//借入金額・範囲チェック

function checkkari(form) {



	if (kari < 100000 || kari >99999999) {

		alert("利用額は10万円以上、1億円未満です。");

		return false;

	}

	return true;

}





//ボーナス返済割合・範囲チェック

function checkbonus(form) {



	if (r_bonus < 0 || r_bonus > 50) {

		alert("ボーナス返済割合は０％〜５０％です。");

		return false;

	}

	return true;

}





//利用期間・範囲チェック

function checkkikan(form) {



	if (kikan > 360 || kikan < 6) {

		alert("利用期間は、6〜360カ月です。");

		return false;

	}

	return true;

}





//配列要素nullクリア

function makeArray(n) {



	this.length = n;

	for (i=1;i<=n; i++){

		this[i] = null;

	}

}





function ganri(form){



	riritu  = ritu;



	yusi_bonus=kari*r_bonus/100;

	yusi_mon=kari-yusi_bonus;



	kai_mon=kikan;

	kai_bonus=Math.floor(kikan/6);



	tukiri1=riritu/(100*12);

	tukiri2=Math.pow(1+tukiri1,kai_mon);



	kappu_mon=yusi_mon*tukiri1*tukiri2/(tukiri2-1);



	tukiri1_b=riritu/(100*2);

	tukiri2_b=Math.pow(1+tukiri1_b, kai_bonus);



	kappu_bo=yusi_bonus*tukiri1_b*tukiri2_b/(tukiri2_b-1);



	form.h_mon.value=Math.floor(kappu_mon);

	form.h_bonus.value=Math.floor(kappu_bo);



	if (kikan < 12) {

		form.h_year.value=form.h_mon.value*kai_mon

				         +form.h_bonus.value*kai_bonus;

	}



	if (kikan >= 12) {

		form.h_year.value=form.h_mon.value*12

            			 +form.h_bonus.value*2;

	}





	form.h_mon.value=addcomma(form.h_mon.value);

	form.h_bonus.value=addcomma(form.h_bonus.value);

	form.h_year.value=addcomma(form.h_year.value);



}





//初期クリア

function clearAll(form) {



	form.vkari.value="";

	form.vr_bonus.value="";

	form.vkikan.value="";

	form.vritu.value="";

	form.h_mon.value="";

	form.h_bonus.value="";

	form.h_year.value="";



}







//配列要素をnullクリア

function makeArray(n) {



	this.length = n;

	for (i=1;i<=n; i++){

		this[i] = null;

	}

}





//カンマ編集

function addcomma(num)



{

	var a = new makeArray(12);

	var b = new makeArray(12);

	var c = new makeArray(12);



	a[1]=num/10; 



	i=1;                                                  

	while (a[i] != 0) {

		b[i] = a[i] - Math.floor(a[i]);

		a[i+1] = Math.floor(a[i])/10;

		i++;

	}



	col=i-1;

	for (i=1;i<=col;i++)

	{

	     b[i] *= 10;

	     b[i] = Math.floor(b[i]+0.1);

	}



	if (a[1] == 0) {

		str="            0";

	}



	else {



	if ((col >= 1) && (col <= 3)) {

	      for (i=col+1;i<=10;i++){

	         b[i] = " ";

	     	 }



	      c[1]=" ";

	      c[2]=" ";

      c[3]=" ";



	}



	if ((col >= 4) && (col <=6)){

	      for (i=col+1;i<=10;i++){

		   b[i] = " ";

	      }



	      c[1]=",";

	      c[2]=" ";

	      c[3]=" ";

	}



        if ((col >= 7) && (col <=9)){

	      for (i=col+1;i<=10;i++){

		   b[i] = " ";

	      }



	      c[1]=",";

	      c[2]=",";

	      c[3]=" ";

	}



	 if (col >= 10){

	      for (i=col+1;i<=10;i++){

		   b[i] = " ";

	      }



	      c[1]=",";

	      c[2]=",";

	      c[3]=",";

	}



        str = b[10]+c[3]+b[9]+b[8]+b[7]+c[2]+b[6]+b[5]+b[4]+c[1]+b[3]+b[2]+b[1];



        }



        return str;



}