function keisan(){
		//入力された値	
		var gankin =Number(window.document.Form.gankin.value);
		var shiharai = Number(window.document.Form.shiharai.value);
		var kinri = Number(window.document.Form.kinri.value);
		var nen = Number(window.document.Form.nen.value);
		var tuki = Number(window.document.Form.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万円以下の場合は20％
		if( gankin < 100000 ){
			p_kinri = 20;
			//元金が100万円未満の場合は18％
		}else if( gankin < 1000000 ){
			p_kinri = 18;
			//元金が100万円以上の場合は15％
		}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 end
				//支払い完了
				if( gankin == 0) break;
			}//for end
			
			//引き直しの状態
			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 = "<p><span class='redb'>借入金額が未入力です。</span></p>";
			flg="2";
		}else{
			if(isNaN(gankin)){
				messege = "<p><span class='redb'>借入金額の入力は数値のみでお願いします</span></p>";
				flg="2"
			}

		}
		if( shiharai == "" && messege ==""){
			messege ="<p><span class='redb'>支払い額が未入力です。</span></p>";
			flg="2"
		}else{
			if(isNaN(shiharai) && messege ==""){
				messege = "<p><span class='redb'>支払い額の入力は数値のみでお願いします。</span></p>";
				flg="2";
			}
		}
		if( kinri == "" && messege ==""){
			messege ="<p><span class='redb'>金利が未入力です。</span></p>";
			flg="2"
		}else{
			if(isNaN(kinri) && messege ==""){
				messege = "<p><span class='redb'>金利の入力は数値のみでお願いします。</span></p>";
				flg="2";
			}
		}
		if( p_kinri > kinri && messege == ""){
			messege = "<p><span class='redb'>この金利では計算されません。</span></p>";
			flg="2";
		}
		if( h_ans <= 0 && messege == ""){
			messege = "<p><span class='redb'>この年月では計算されません。</span></p>";
			flg="2";
		}
		if( Math.round( gankin * nisuu * (kinri/100)/365) > shiharai && messege =="" ){
			messege = "<p><span class='redb'>入力に誤りがありませんか？</span></p>";
			flg="2";
		}
		if(flg == 1){
			//元本が0でない場合は減額対象
			if( (gankin - (risoku - p_risoku)) > 0 ){
				messege = "<div class='keisankekka'><p>元本が<br /><span class='redb'>" + (risoku-p_risoku) + "</span>円減額される可能性があります。<br /><span style='font-size:74%;'>※あくまで目安として参考にして下さい。</span><br /><a href='/cgi/mailform/contact.html'>請求希望の方はコチラ→</a></p></div>";
			}else{
				messege = "<div class='keisankekka'><p>過払い金として<br /><span class='redb'>" + (risoku-p_risoku) + "</span>円請求できる可能性があります。<br /><span style='font-size:74%;'>※あくまで目安として参考にして下さい。</span><br /><a href='/cgi/mailform/contact.html'>請求希望の方はコチラ→</a></p></div>";
			}
		}
		
		document.getElementById("messege").innerHTML = messege;
	}
	
	//imageの変更
	function changeImage( image, name){
		document.images[name].src = "images/" + image;
	}