function keisan(){
		//入力された値
		var gankin = Number(window.document.KEISANFORM.gankin.value);
		var shiharai = Number(window.document.KEISANFORM.shiharai.value);
		var kinri = Number(window.document.KEISANFORM.kinri.value);
		var nen = Number(window.document.KEISANFORM.nen.value);
		var tuki = Number(window.document.KEISANFORM.tuki.value);
		var nisuu = 31;
		var risoku = 0;
			//引きなおし用
		var a_gankin = gankin;
		var p_gankin = gankin;
		var p_risoku = 0;
		//基準金利
		var p_kinri = 0;
		//基準金利
		var p_nisuu = 30;
		
		//元金が10万以下の場合は15%
		if ( gankin < 100000 ) {
			p_kinri = 20;
		//元金が100万未満の場合は18%
		}else if ( gankin < 1000000 ) {
			p_kinri = 18;
		//元金が100万以上の場合は18%
		} else {
			p_kinri = 15;
		}
		
		//現在の日付
		var myD       = new Date();
		var myYear    = myD.getYear();
		myYear   = (myYear < 2000) ? myYear+1900 : myYear;
		var myMonth   = myD.getMonth() + 1;
		
		//支払い続けている年数
		var h_nen = myYear - nen;
		//支払い続けている月数
		var h_tuki = myMonth - tuki;
		
		//支払回数
		var h_ans = h_nen * 12 + h_tuki;

		var testMessege = "";

		//利息が支払額より大きい場合
		if (Math.round( gankin * nisuu * ( kinri / 100) / 365 ) < shiharai) {
			//現在の状態
			for ( var i = 0; i < h_ans; i++ ) {
				//利息を合計する
				risoku = risoku + Math.round( gankin * nisuu * ( kinri / 100) / 365 );
				
				//元金が支払額より大きい場合
				if ( gankin > shiharai ) {
					gankin = gankin - shiharai + Math.round( gankin * nisuu * ( kinri / 100) / 365 );
				} else {
					gankin = 0;
				}
				
				//支払完了
				if ( gankin == 0 ) break;
				
			}
			
			
			//引きなおしの状態
			for ( var i = 0; i < h_ans; i++ ) {
				//利息を合計する
				p_risoku = p_risoku + Math.round( p_gankin * p_nisuu * ( p_kinri / 100) / 365 );

				//元金が支払額より大きい場合
				if ( p_gankin > shiharai ) {
					p_gankin = p_gankin - shiharai + Math.round( p_gankin * p_nisuu * ( p_kinri / 100) / 365 );
				} else {
					p_gankin = 0;
				}
				
				//支払完了
				if ( p_gankin == 0 ) break;
				
			}
		}
		
		var messege = "";

		var flg ="1";

		if( a_gankin == "" ){
			messege ="<font color='red'>借入金額が未入力です。</font><br>";
			flg="2";
		}else{
			if(isNaN(gankin)){
				messege = "<font color='red'>借入金額の入力は数値のみでお願いします。</font>";
				flg="2";
			}
		}

		if( shiharai == "" && messege ==""){
			messege ="<font color='red'>支払額が未入力です。</font><br>";
			flg="2";
		}else{
			if(isNaN(shiharai) && messege ==""){
				messege = "<font color='red'>支払額の入力は数値のみでお願いします。</font>";
				flg="2";
			}
		}

		if( kinri == "" && messege ==""){
			messege ="<font color='red'>金利が未入力です。</font><br>";
			flg="2";
		}else{
			if(isNaN(kinri) && messege ==""){
				messege = "<font color='red'>金利の入力は数値のみでお願いします。</font>";
				flg="2";
			}
		}
		if ( p_kinri > kinri  && messege =="") {
			messege = "<font color='red'>この金利では計算されません。</font>";
			flg="2";
		}
		if ( h_ans <= 0  && messege =="") {
			messege = "<font color='red'>この年月では計算されません。</font>";
			flg="2";
		}
		if ( Math.round( gankin * nisuu * ( kinri / 100) / 365 ) > shiharai && messege =="") {
			messege = "<font color='red'>入力に誤りがありませんか？</font>";
			flg="2";
		}
		if(flg == 1){
			//元本が0でない場合は減額対象
			if ( ( gankin - (risoku-p_risoku) ) > 0 ) {
				messege = "なんと！！元本が<font color='red'>" + (risoku-p_risoku) + "</font>円減額される可能性があります。";
			} else {
				messege = "なんと！！<font color='red'>" + (risoku-p_risoku) + "</font>円返ってくる可能性があります。";
			}
		}
/*
		
		if ( a_gankin == "" || shiharai == "" || kinri == "" || nen == "" ) {
			messege = "<font color='red'>未入力項目があります。</font>";
		} else if ( isNaN(gankin) || isNaN(shiharai) || isNaN(kinri) || isNaN(nen) ) {
			messege = "<font color='red'>入力は数値のみでお願いします。</font>";
		} else if ( p_kinri > kinri ) {
			messege = "<font color='red'>この金利では計算されません。</font>";
		} else if ( h_ans <= 0 ) {
			messege = "<font color='red'>この年月では計算されません。</font>";
		}else if ( Math.round( gankin * nisuu * ( kinri / 100) / 365 ) > shiharai) {
			messege = "<font color='red'>入力に誤りがありませんか？</font>";
		} else {
			//元本が0でない場合は減額対象
			if ( ( gankin - (risoku-p_risoku) ) > 0 ) {
				messege = "なんと！！元本が<font color='red'>" + (risoku-p_risoku) + "</font>円減額される可能性があります。";
			} else {
				messege = "なんと！！<font color='red'>" + (risoku-p_risoku) + "</font>円返ってくる可能性があります。";
			}
		}
*/		
		document.getElementById("messege").innerHTML = messege;
		
	}
// 


//imageの変更
function changeImage( image, name ){
	document.images[name].src = "images/"+image;
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}