function calc(form) {

	var i;				// ループカウンタ
	var gankin;			// 月毎の元金入金額	
	var zangankin;		// 月毎に更新される残元金
	var	risoku;			// 月々の残元金に対する利息
	var ngflg;			// 月々のお支払金額が最低お支払額を満たさない場合にtrue
	var kaisuu;			// 支払回数

	// 支払回数を暫定的に200に設定。貸付条件では最長181。（不動産担保の15年1ヶ月）
	kaisuu = 200;
	zangankin = form.kariire.value*10000;
	for( i=1; i <= kaisuu; i++ )
	{
		// 残元金に対する利息計算
		risoku = Math.floor(zangankin*form.nenri.value/100*(365/12)/365);

		// 支払回数が算出不可能：月々のお支払額が残元金に対する利息を下回る場合
		if( form.siharai.value < risoku )
		{
			ngflg = 1;
			break;
		}
		ngflf = 0;

		// 元金入金額
		gankin = form.siharai.value - risoku;

		// 残元金更新。前月残元金に対する元金入金額をデクリメント
		zangankin = zangankin - gankin;

		//残元金が0を下回ったか判定
		if( zangankin < 0 )
		{
			ngflg = 0;
			break;
		}
	}

	// テキストボックスへ出力
	if( ngflg == 0 && zangankin < 0 )
	{
		form.ans.value = i + "回です";
	}
	else if( ngflg == 1 )
	{
		form.ans.value = "月々の支払額は、" + risoku + "円以上を指定してください。";
	}
	else if( zangankin >= 0 )
	{
		form.ans.value = "お支払回数が長すぎます。月々の支払額を再度ご検討ください。";
	}

}