var m_iMonthDays;                   // 月の仮定日数
m_iMonthDays = 30;

function Calc1()
{

    var m_dfInterest;           // 年利率
    var lLoan;                  // 貸付金額
    var dfMonthInterest;        // 月利率
    var iNumber;                // 返済回数
    var lResult;                // 回数毎の返済金額


    with ( document.forms[1] )
    {
        if(txtLoan.value == "" || txtNumber.value == "")
        {
            alert("入力し直してください");
            return;
        }

		if ( isNaN2(txtLoan.value)) {
			alert('半角数字で入力して下さい');
			return;
		}
		if ( isNaN2(txtNumber.value)) {
			alert('半角数字で入力して下さい');
			return;
		}
		if ( isNaN2(txtNenri.value)) {
			alert('半角数字で入力して下さい');
			return;
		}
		

        m_dfInterest = 0;
        lLoan = 0;
        iNumber = 0;
        lResult = 0;

        txtRet.value = "";

        m_dfInterest= txtNenri.value / 100;
        lLoan = parseInt(txtLoan.value) * 10000;
        dfMonthInterest = m_dfInterest / 365 * 30 ;
        iNumber = parseInt(txtNumber.value);

        if (lLoan < 30 || lLoan > 5000 * 10000)
        {
            alert("ご利用金額の範囲は30万円～5000万円です")
            return;
        }

        if (iNumber == 0)
        {
            lResult = (lLoan / 10000 * 8 * 30);
            lResult1 = lResult /10; 
            lResult2 = Math.ceil(lResult1)
            lResult3 = lResult2 * 10

            txtRet.value = EditCamma(lLoan + lResult3);
        }
        else
        {
            lResult = Math.floor(lLoan * dfMonthInterest * 
                      (Math.pow(1 + dfMonthInterest, iNumber) / 
                      (Math.pow(1 + dfMonthInterest, iNumber) - 1)));

            lResult1 = lResult /10; 
            lResult2 = Math.ceil(lResult1)
            lResult3 = lResult2 * 10

            txtRet.value = EditCamma(lResult3);
        }
    }
}



function Calc2()
{
    var m_dfInterest;   // 年利率
    var lLoan;          // ご利用金額
    var lZandaka;       // 貸付残高
    var lReturn;        // 返済金額
    var lReturn2;       // 返済金額(ボーナス)
    var lCount;         // 返済回数
    var lTemp;          // テンポラリ
    var lUemp;          // 同上
    var lInc;           // インクリメント

    var myNow = new Date();
    var myMonth = myNow.getMonth() + 1;

 


    with ( document.forms[0] )
    {
        if(txtLoan.value == "" || txtReturn.value == "")
        {
            alert("入力し直してください");
            return;
        }

		if ( isNaN2(txtLoan.value)) {
			alert('半角数字で入力して下さい');
			return;
		}
		if ( isNaN2(txtReturn.value)) {
			alert('半角数字で入力して下さい');
			return;
		}
		if ( isNaN2(txtReturn2.value)) {
			alert('半角数字で入力して下さい');
			return;
		}

		if ( isNaN2(txtNenri.value)) {
			alert('半角数字で入力して下さい');
			return;
		}


        lLoan = parseInt(txtLoan.value) * 10000;
        lReturn = parseInt(txtReturn.value) * 1000;
		if ( txtReturn2.value == '') {
        	lReturn2 = 0;
		}
		else {
        	lReturn2 = parseInt(txtReturn2.value) * 1000;
		}

        m_dfInterest= txtNenri.value / 100;

        if (lLoan < 300000 || lLoan > 5000 * 10000)
        {
            alert("ご利用金額の範囲は30万円～5000万円です");
            txtRet.value = "";
            return;
        }

        lZandaka = lLoan;
        lCount = 0;
        lTemp = 0
        lUemp = 0
        lSaitei = 0
        lSaitei = parseInt(lLoan * (m_dfInterest / 12));

        if (lReturn < lSaitei)
        {
            alert("入力に誤りがあります。\n「毎月の返済金額（元利合計）」がご利用金額の1ヶ月分のお利息以下です。\nご利用金額1ヶ月分のお利息以上の金額を入力してください。");
            return;
        }

        var blFlg = 0;
        var blBFlg = 0;
        var lCount2 = -1;

         
        while (lZandaka > 0)
        {
            lCount ++;
            lCount2 ++;
            
            lTemp = parseInt((lZandaka * ( 1 + (m_dfInterest / 12)))/10);
            lUemp = lTemp*10;
            if ( ( blFlg == 0 ) && (lCount2 == K ) )
            {
                lCount2 = 0;
                blBFlg = 1;
                blFlg = 1;
            }
            else if ( ( blFlg == 1 ) && (lCount2 == X ) )
            {
                lCount2 = 0;
                blBFlg = 1;
                blFlg = 2;
            }
            else if ( ( blFlg == 2 ) && (lCount2 == Y ) )
            {
                lCount2 = 0;
                blBFlg = 1;
                blFlg = 1;
            }
             
            if (blBFlg)
            {
                lZandaka = lUemp - lReturn  - lReturn2;
            }
            else
            {
                lZandaka = lUemp - lReturn;
            }
            blBFlg = 0;
        }

        txtRet.value = lCount;
    }
}

function EditCamma(iNumber)
{
    var strTemp;
    var iTemp;
    var iCount;

    strTemp = "";
    iTemp = "" + iNumber;
    iCount = 0;

    for (var iInc = iTemp.length - 1; iInc >= 0; iInc --)
    {
        if (iCount % 3 == 0 && iCount != 0)
        {
            strTemp= "," + strTemp;
        }
        strTemp = iTemp.charAt(iInc) + strTemp;
        iCount ++;
    }
    return strTemp;
}

function Calc3()
{
    with ( document.forms[2] )
    {
		if ( isNaN2(txtCur.value) ) {
			alert('半角数字で入力して下さい');
			return;
		}
        rieki = txtCur.value;
        shiki = rieki*24
        txtRet.value=eval(shiki*10);
    }
}

function isNaN2(val) {

	if ( val == '')
	{
		return false;
	}
	return isNaN(val);
}

// -->

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];}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}