// 価格表示.cms
//
// 数値を金額表示に直します。
//
// 2003/11/23
//
// CopyRight (c) 2003 ishi All right reserved.
//

// 値が「+」か「-」を判別する
// suru = 0; 「＋」。suru = 1; 「−」。
function pl(num)
{
    if( num < 0 ){ suru = 1; } else { suru = 0; } return suru;
}

// 桁数が3桁以上か判別する。
// state = 0; 3桁以下。 state = 1; 3桁以上。
function check3keta(st)
{
    if( len(st) <= 3 )
    {
        state = 0;
    } else {
        state = 1;
    }
    return state;
}

// 値を3桁毎に区切る。
function changekingaku(number)
{
    pm = pl(number);
    state = 0;
    c = 0;

    if( pm == "1" )
    { str = mid(number,2); }
    else
    { str = number; }

    if( check3keta(str) == 0 )
    {
        str = str;
    } else {
        while( check3keta(str) == 1 )
        {
            buf = right(str,3);
            str = left(str,len(str)-3);
            if( c == 0 )
            {
                num = buf; // 一度目
            } else {
                num = buf + "," + num; // 二度目以上
            }
            c = c+1;
        }
        str = str + "," + num;
    }

    if( pm == "1" )
    { str = "-\\" + str; }
    else
    { str = "\\" + str; }

    return str;
}

// メインルーチン
kazu = [x,y];
[x,y] = changekingaku(kazu);