<!--

///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.8.10
// Ture ならば半角ｶﾀｶﾅのみ、Falseならば全て半角変換

function ZenToHan(strInput,ModeAi){

	var strConvZen = "をぁぃぅぇぉゃゅょっーあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん－";
		strConvZen = strConvZen + "ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン－";
	var strConvHan = "ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-ｦｧｨｩｪｫｬｭｮｯ-ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-";

	var strConvZen2	= "ガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポヴがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ";
	var strConvHan2	= "ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾊﾟﾋﾞﾋﾟﾌﾞﾌﾟﾍﾞﾍﾟﾎﾞﾎﾟｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾊﾟﾋﾞﾋﾟﾌﾞﾌﾟﾍﾞﾍﾟﾎﾞﾎﾟ";


	// ModeAi が False のときのみ変換に使用
	if(!ModeAi){
		strConvZen = strConvZen + "０１２３４５６７８９";
		strConvZen = strConvZen + "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ";
		strConvZen = strConvZen + "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ";
		strConvZen = strConvZen + "＠　！＃＄％＆’（）＊＋，－．／：；＜＝＞？［￥］＾＿｛｜｝￣。「」、";

		strConvHan = strConvHan + "0123456789";
		strConvHan = strConvHan + "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
		strConvHan = strConvHan + "abcdefghijklmnopqrstuvwxyz";
		strConvHan = strConvHan + "@ !#$%&'()*+,-./:;<=>?[\\]^_{|}~｡｢｣､";
	}		

	strConvHan = strConvHan + "ﾞﾟ";

	var i=0, searchword="", searchcount=0, strMake="", MakeWords="";


		for(i=0; i<strInput.length; i++){

			searchword = strInput.charAt(i);

			// 既に半角か確認
			searchcount = strConvHan.indexOf(searchword,0);
			if(searchcount != -1){
				strMake = searchword;
			}
			else{
				// 新しく変換
				searchcount = strConvZen.indexOf(searchword,0);
				if(searchcount != -1){
					strMake = strConvHan.charAt(searchcount);
				}
				else{
					searchcount = strConvZen2.indexOf(searchword,0);
					if(searchcount != -1){
						strMake = strConvHan2.substr(searchcount*2,2);
					}
					else{
						strMake = "";
					}
				}
			}
			MakeWords = MakeWords + strMake;
		}
	return MakeWords;
}




///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.8.11
// Ture ならば全角カタカナのみ、Falseならば全て全角変換

function HanToZen(strInput,ModeAi){

	var strConvZen = "ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン－";
		strConvZen = strConvZen + "ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン－";
		strConvZen = strConvZen + "ガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポ";
	var strConvHan = "ｦｧｨｩｪｫｬｭｮｯ-ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-";
		strConvHan = strConvHan + "をぁぃぅぇぉゃゅょっーあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん－";
		strConvHan = strConvHan + "がぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ";

	var strConvZen2	= "ガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポヴ";
	var strConvHan2	= "ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾊﾟﾋﾞﾋﾟﾌﾞﾌﾟﾍﾞﾍﾟﾎﾞﾎﾟｳﾞ";


	// ModeAi が False のときのみ変換に使用
	if(!ModeAi){
		strConvZen = strConvZen + "０１２３４５６７８９";
		strConvZen = strConvZen + "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ";
		strConvZen = strConvZen + "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ";
		strConvZen = strConvZen + "＠　！＃＄％＆’（）＊＋，－．／：；＜＝＞？［￥］＾＿｛｜｝￣。「」、";

		strConvHan = strConvHan + "0123456789";
		strConvHan = strConvHan + "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
		strConvHan = strConvHan + "abcdefghijklmnopqrstuvwxyz";
		strConvHan = strConvHan + "@ !#$%&'()*+,-./:;<=>?[\]^_{|}~｡｢｣､";
	}		

	strConvZen = strConvZen + "ヴ";


	var i=0, searchword="", searchcount=0, strMake="", MakeWords="";

	for(i=0; i<strInput.length; i++){

		searchword = strInput.substr(i,2);

		if(searchword.length == 2){
		
			// 半濁音文字の確認
			searchcount = strConvHan2.indexOf(searchword,0);
			if(searchcount != -1){
				strMake = strConvZen2.charAt(searchcount/2);
				i++;
			}
			else{
				strMake = searchword.charAt(0);
				searchcount = strConvZen.indexOf(strMake,0);
				if(searchcount == -1){
					searchcount = strConvHan.indexOf(strMake,0);
					if(searchcount != -1){
						strMake = strConvZen.charAt(searchcount);
					}
					else{
						strMake = "";
					}
				}
			}
		}
		else{
			searchcount = strConvZen.indexOf(searchword,0);
			if(searchcount != -1){
				strMake = searchword;
			}
			else{
				searchcount = strConvHan.indexOf(searchword,0);
				if(searchcount != -1){
					strMake = strConvZen.charAt(searchcount);
				}
				else{
					strMake = "";
				}
			}
		}
		MakeWords = MakeWords + strMake;
	}

	return MakeWords;
}



///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.8.11
// ISBNハイフンなし、半角文字に変換

function IsbnToHan(strInput){

	var strConvIn = "0123456789xX０１２３４５６７８９ｘＸ";
	var strConvOut = "0123456789XX0123456789XX";

	var i=0, searchword="", searchcount=0, strMake="", MakeWords="";

	for(i=0; i<strInput.length; i++){

		searchword = strInput.charAt(i);

		searchcount = strConvIn.indexOf(searchword,0);
		if(searchcount == -1){
			strMake = "";
		}
		else{
			strMake = strConvOut.charAt(searchcount);
		}
		MakeWords = MakeWords + strMake;
	}

	return MakeWords;
}



///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.8.11
// ISBNチェックデジット正しければTrue、正しくなければFalse
// 11で割った余りが1の場合 "X"

function Mod11(isbn10){

	var i=0,Total=0,KakeSuu=2,amari=0,Chk="";
	CheckFlag = new Boolean(false);


	if(isbn10.length == 10){

		for(i=isbn10.length - 2; i>=0; i--){

			Total += parseInt(isbn10.charAt(i)) * KakeSuu;
			KakeSuu ++;

			if(KakeSuu>10) KakeSuu=2;
		}

		amari = Total % 11
		if(amari == 0){
			Chk = "0";
		}
		else{
			if(amari == 1){
				Chk = "X";
			}
			else{			
				Chk = String(11 - amari);
			}
		}
		if(isbn10.charAt(9) == Chk){
			CheckFlag = true;
		}
	}

	return CheckFlag;
}



///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.8.11
// 同一文字の構成かチェック
// 同一の場合は、True

function SameWords(strWords){

	var i=0,sWork1="",sWork2="";
	CheckFlag = new Boolean(true);

	sWork1 = strWords.charAt(0);

	for(i=0; i<strWords.length; i++){

		sWork2 = strWords.charAt(i);
		if(sWork1 != sWork2){
			CheckFlag = false;
			break;
		}
	}

	return CheckFlag;
}



///////////////////////////////////////////////////////////////////////////////////////////////////
// H12.9.7
// ISBNのチェック
// 桁数10桁、チェックデジット、同一文字列
// ISBNとして正しい場合はtrue、それ以外はfalse

function IsbnCheck(ISBNCode){

	var CkFlag = new Boolean(false);

	if(ISBNCode.length==10){

		if(Mod11(ISBNCode)==true){ 

			if(SameWords(ISBNCode)==false){
				CkFlag = true;
			}
		}
	}
	return CkFlag;
}



///////////////////////////////////////////////////////////////////////////////////////////////////
// replace

function replaceChars(sString,sOld,sNew) {

	for (i = 0; i < sString.length; i++) {
		if (sString.substring(i, i + sOld.length) == sOld) {
			sString = sString.substring(0, i) + sNew + sString.substring(i + sOld.length, sString.length)
		}
	}
	return sString
}
/**************************************************************************************************
*	Trim関数
***************************************************************************************************/
function m_trim(sdata) {
	var i;
	var ista;
	var iend;
	var sstr;
	
	ista = -1;
	iend = -1;
	sstr = "";
	
	for (i=0 ; i < sdata.length; i++) {
		if (sdata.charAt(i) != " " && sdata.charAt(i) != "　") {
			if (ista == -1) {
				ista = i;
				iend = i+1;
			}
			else {
				iend = i+1;
			};
		};
	};
	
	if (ista != -1 && iend != -1) sstr = sdata.substring(ista,iend);
	
	return sstr;
}
/**************************************************************************************************
*	カナチェンジ（小さいカナを大きく）
***************************************************************************************************/
function m_kanachange_big(sData) {
	var i;
	var r;
	
	r = "";
	for (i = 0 ; i < sData.length ; i++) {
		switch(sData.charAt(i)) {
			case "ｧ":
			case "ァ":
				r = r + "ｱ";
				break;
			case "ｨ":
			case "ィ":
				r = r + "ｲ";
				break;
			case "ｩ":
			case "ゥ":
				r = r + "ｳ";
				break;
			case "ｪ":
			case "ェ":
				r = r + "ｴ";
				break;
			case "ｫ":
			case "ォ":
				r = r + "ｵ";
				break;
			case "ｬ":
			case "ャ":
				r = r + "ﾔ";
				break;
			case "ｭ":
			case "ュ":
				r = r + "ﾕ";
				break;
			case "ｮ":
			case "ョ":
				r = r + "ﾖ";
				break;
			case "ｯ":
			case "ッ":
				r = r + "ﾂ";
				break;
			default:
				r = r + sData.charAt(i);
				break;
		};
	};
	
	return(r);
};
/**************************************************************************************************
*	文字列に漢字が含まれているかチェック
*	引数：sData チェック文字列
*	戻り：漢字が含まれる：True	漢字が含まれない：False
***************************************************************************************************/
function m_kanjicheck(sData) {
	var i;
	var swrk;
	var checkchar1 = "をぁぃぅぇぉゃゅょっーあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん－";
	var checkchar2 = "ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン－";
	var checkchar3 = "ガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポヴがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ";
	var checkchar4 = "ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-ｦｧｨｩｪｫｬｭｮｯ-ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-";
	var checkchar5 = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ＠　！＃＄％＆’（）＊＋，－．／：；＜＝＞？［￥］＾＿｛｜｝￣。「」、";
	var checkchar6 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@ !#$%&'()*+,-./:;<=>?[\]^_{|}~｡｢｣､ﾞﾟ";
	
	for (i=0 ; i<sData.length ; i++) {
		if (checkchar1.indexOf(sData.charAt(i)) == -1 &&
		    checkchar2.indexOf(sData.charAt(i)) == -1 &&
		    checkchar3.indexOf(sData.charAt(i)) == -1 &&
		    checkchar4.indexOf(sData.charAt(i)) == -1 &&
		    checkchar5.indexOf(sData.charAt(i)) == -1 &&
		    checkchar6.indexOf(sData.charAt(i)) == -1) {return(true);}
	};
	return(false);
};
/**************************************************************************************************
*	文字列に英数字以外の文字が含まれているかチェック
*	引数：sData チェック文字列
*	戻り：英数字以外の文字が含まれる：True		英数字以外の文字が含まれない：False
***************************************************************************************************/
function m_eisuujicheck(sData) {
	var i;
	var checkchar1 = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ";
	var checkchar2 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
	
	for (i=0 ; i<sData.length ; i++) {
		if (checkchar1.indexOf(sData.charAt(i)) == -1 &&
		    checkchar2.indexOf(sData.charAt(i)) == -1) {return(true);}
	};
	return(false);
};
/**************************************************************************************************
*	文字列に日本語が含まれているかチェック
*	引数：sData チェック文字列
*	戻り：日本語が含まれる：True	日本語が含まれない：False
***************************************************************************************************/
function m_japancheck(sData) {
	var i;
	var checkchar1 = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ＠　！＃＄％＆’（）＊＋，－．／：；＜＝＞？［￥］＾＿｛｜｝￣。「」、";
	var checkchar2 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@ !#$%&'()*+,-./:;<=>?[\]^_{|}~｡｢｣､ﾞﾟ";
	
	for (i=0 ; i<sData.length ; i++) {
		if (checkchar1.indexOf(sData.charAt(i)) == -1 &&
		    checkchar2.indexOf(sData.charAt(i)) == -1) {return(true);}
	};
	return(false);
};
/**************************************************************************************************
*	文字列に英数字以外が含まれているかチェック
*	引数：sData チェック文字列
*	戻り：英数字以外が含まれる：True	英数字以外が含まれない：False
***************************************************************************************************/
function m_alphacheck(sData) {
	var i;
	var checkchar1 = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ　";
	var checkchar2 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ";
	
	for (i=0 ; i<sData.length ; i++) {
		if (checkchar1.indexOf(sData.charAt(i)) == -1 &&
		    checkchar2.indexOf(sData.charAt(i)) == -1) {return(true);}
	};
	return(false);
};
/**************************************************************************************************
*	文字列に漢字が含まれているかチェック
*	引数：sData チェック文字列
*	戻り：漢字が含まれる：True	漢字が含まれない：False
***************************************************************************************************/
function m_kanjicheck(sData) {
	var i;
	var checkchar1 = "をぁぃぅぇぉゃゅょっーあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん－";
	var checkchar2 = "ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン－";
	var checkchar3 = "ガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポヴがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ";
	var checkchar4 = "ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-ｦｧｨｩｪｫｬｭｮｯ-ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝ-";
	var checkchar5 = "０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ＠　！＃＄％＆’（）＊＋，－．／：；＜＝＞？［￥］＾＿｛｜｝￣。「」、";
	var checkchar6 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@ !#$%&'()*+,-./:;<=>?[]^_{|}~｡｢｣､ﾞﾟ";
	
	for (i=0 ; i<sData.length ; i++) {
		if (sData.charAt(i) != "\\") {
			if (checkchar1.indexOf(sData.charAt(i)) == -1 &&
			    checkchar2.indexOf(sData.charAt(i)) == -1 &&
			    checkchar3.indexOf(sData.charAt(i)) == -1 &&
			    checkchar4.indexOf(sData.charAt(i)) == -1 &&
			    checkchar5.indexOf(sData.charAt(i)) == -1 &&
			    checkchar6.indexOf(sData.charAt(i)) == -1) {return(true);}
		};
	};
	return(false);
};
/**************************************************************************************************
*	機能：文字列が日付の形式かどうかチェック
*	引数：sData チェック文字列
*	　　　sForm 変換フォーム YY,YYYY,MM,DD,/のみ使用可
*	戻り：正常：変換日付文字列	異常：""
***************************************************************************************************/
function m_datecheck(sData, sForm) {
	var bYY;
	var sYY;
	var sMM;
	var sDD;
	var ilvl;
	var icnt;
	var schek;
	var syear;
	var dDate;
	
	bYY = false;
	sYY = "";
	sMM = "";
	sDD = "";
	ilvl = 0;
	swork = "";
	dDate = new Date();
	
	for (icnt = 0 ; icnt < sData.length ; icnt++) {
		switch(sData.charAt(icnt)) {
			case "０":
				swork = swork + "0";
				break;
			case "１":
				swork = swork + "1";
				break;
			case "２":
				swork = swork + "2";
				break;
			case "３":
				swork = swork + "3";
				break;
			case "４":
				swork = swork + "4";
				break;
			case "５":
				swork = swork + "5";
				break;
			case "６":
				swork = swork + "6";
				break;
			case "７":
				swork = swork + "7";
				break;
			case "８":
				swork = swork + "8";
				break;
			case "９":
				swork = swork + "9";
				break;
			case ".":
			case "･":
			case "-":
			case "/":
			case "．":
			case "・":
			case "－":
			case "ー":
			case "／":
				switch(ilvl) {
					case 0:
						sYY = swork;
						break;
					case 1:
						sMM = swork;
						break;
					case 2:
						sDD = swork;
						break;
					default:
						break;
				};
				swork = "";
				ilvl = ilvl + 1;
				break;
			case "年":
				bYY = true;
				sYY = swork;
				swork = "";
				ilvl = 1;
				break;
			case "月":
				sMM = swork;
				swork = "";
				ilvl = 2;
				break;
			case "日":
				sDD = swork;
				swork = "";
				ilvl = 3;
				break;
			default:
				if (isNaN(sData.charAt(icnt))) {
					return "";
				}
				else {
					swork = swork + sData.charAt(icnt);
				};
				break;
		};
	};
	
	if (swork.length > 0) {
		switch(ilvl) {
			case 0:
				sYY = swork;
				break;
			case 1:
				sMM = swork;
				break;
			case 2:
				sDD = swork;
				break;
			default:
				break;
		};
		ilvl = ilvl + 1;
	};
	
	if (sYY.length == 0 && sMM.length == 0 && sDD.length == 0) return "";
	if (sYY.length  > 0 && sMM.length == 0 && sDD.length  > 0) return "";
	
	schek = sForm.split("/");
	if (schek.length == ilvl + 1 && sYY.length > 0 && bYY == false) {
		sDD = sMM;
		sMM = sYY;
		sYY = "";
	};
	
	swork = "";
	for (icnt = 0 ; icnt < schek.length ; icnt++) {
		if (swork.length != 0) swork = swork + "/"
		switch(schek[icnt].toUpperCase()) {
			case "YYYY":
				if (eval(sYY) < 0 || eval(sYY) > 9999) return "";
				switch (sYY.length) {
					case 0:
						syear = dDate.getYear();
						syear = syear.toString(10);
						swork = swork + syear;
						break;
					case 1:
					case 2:	
						syear = dDate.getYear();
						syear = syear.toString(10);
						syear = syear.substr(0, 4 - sYY.length);
						swork = swork + syear + sYY;
						break;
					case 4:
						swork = swork + sYY;
						break;
					default:
						return "";
						break;
				};
				break;
			case "YY":
				if (eval(sYY) < 0 || eval(sYY) > 9999) return "";
				switch (sYY.length) {
					case 0:
						syear = dDate.getYear();
						syear = syear.toString(10);
						swork = swork + syear.substr(syear.length - 2, 2);
						break;
					case 1:
						sYY = "00" + sYY;
						swork = swork + sYY.substr(sYY.length - 2, 2);
						break;
					case 2:	
						swork = swork + sYY;
						break;
					case 4:
						swork = swork + sYY.substr(2, 2);
						break;
					default:
						return "";
						break;
				};
				break;
			case "MM":
				if (sMM.length == 0) return "";
				if (eval(sMM) < 1 || eval(sMM) > 12) return "";
				sMM = "00" + sMM;
				swork = swork + sMM.substr(sMM.length - 2, 2);
				break;
			case "DD":
				if (sDD.length == 0) return "";
				if (eval(sDD) < 1 || eval(sDD) > 31) return "";
				sDD = "00" + sDD;
				swork = swork + sDD.substr(sDD.length - 2, 2);
				break;
			default:
				return "";
				break;
		};
	};
	
	return swork;
};
/**************************************************************************************************
*	機能：メールアドレスのチェック
*	引数：sData チェック文字列
*	戻り：正常：変換メールアドレス		異常：""
***************************************************************************************************/
function m_mailcheck(sData) {
	var badt;
	var bdwl;
	
	badt = false;
	bdwl = false;
	
	sData = ZenToHan(sData, false);
	if (m_japancheck(sData) == true) return "";
	
	swork = ""
	for (icnt = 0 ; icnt < sData.length ; icnt++) {
		switch(sData.charAt(icnt)) {
			case "@":
				if (badt) bdwl = true;
				badt = true;
				swork = swork + sData.charAt(icnt);
				break;
			case "｡":
				swork = swork + ".";
				break;
			case ",":
				if (badt) {
					swork += ".";
				};
				break;
			default:
				swork = swork + sData.charAt(icnt);
				break;
		};
	};
	if (badt == true && bdwl == false && swork.length >= 3) {
		return swork;
	}
	else {
		return "";
	};
};
/**************************************************************************************************
*	機能：数字のマイナス、点を除く
*	引数：sData チェック文字列
*	戻り：除いた文字列
***************************************************************************************************/
function m_suujinomi(sData) {
	
	sData = ZenToHan(sData)
	
	if (isNaN(sData) == true) return "";
	
	swork = ""
	for (icnt = 0 ; icnt < sData.length ; icnt++) {
		switch(sData.charAt(icnt)) {
			case "-":
			case ".":
				break;
			default:
				swork = swork + sData.charAt(icnt);
				break;
		};
	};
	
	return swork;
};
/**************************************************************************************************
*	機能：ISBNコードのチェックを行い、１０桁コードに変換
*	引数：チェックするコード
*	戻り：正常：１０桁コード	異常：""
***************************************************************************************************/
function m_isbncheck(sisbn) {
	var icnt;
	var swrk;
	var schr;
	
	if (m_kanjicheck(sisbn)) return "";
	
	sisbn = ZenToHan(sisbn);
	
	if (sisbn.substr(0, 3) == "978" && sisbn.length >= 13) {
		swrk = m_addcheckdegit(sisbn.substr(3, 9));
	}
	else {
		swrk = "";
		for (icnt = 0 ; icnt < sisbn.length ; icnt++) {
			schr = sisbn.substr(icnt, 1);
			switch(schr.toUpperCase()) {
				case "0":
				case "1":
				case "2":
				case "3":
				case "4":
				case "5":
				case "6":
				case "7":
				case "8":
				case "9":
				case "X":
					swrk += schr.toUpperCase();
					break;
				default:
					break;
			};
			
			if (swrk.length >= 10 || schr.toUpperCase() == "C") break;
		};
		
		if (swrk.length != 10) {
			swrk = "";
		}
		else {
			swrk = m_addcheckdegit(swrk);
		};
	};
	
	return swrk;
};
/**************************************************************************************************
*	機能：MOD11
*	引数：チェックするコード（最低９桁）
*	戻り：１０桁コード
***************************************************************************************************/
function m_addcheckdegit(scode) {
	var icnt;
	var isum;
	var idiv;
	var imod;
	var ism2;
	var schr;
	
	isum = 0;
	for (icnt = 0 ; icnt < 9 ; icnt++) {
		schr = scode.substr(icnt, 1);
		isum += (eval(schr) * (10 - icnt));
	};
	idiv = Math.floor(isum / 11);
	imod = isum - (Math.floor(isum / 11) * 11);
	if (imod > 0) idiv += 1;
	
	ism2 = idiv * 11;
	if ((ism2 - isum) > 9) {
		return (scode.substr(0, 9) + "X");
	}
	else {
		return (scode.substr(0, 9) + (ism2 - isum));
	};
};
/**************************************************************************************************
*	機能：MOD13
*	引数：チェックするコード（最低１２桁）
*	戻り：１３桁コード
***************************************************************************************************/
function MOD13(scode) {
	var icnt;
	var ibf1;
	var ibf2;
	var ivar;
	var swrk;
	
	if (scode.length < 12 || isNaN(scode)) return "";
	
	ibf1 = 0;
	ibf2 = 0;
	for (icnt = 12 ; icnt >= 1 ; icnt--) {
		if ((Math.floor(icnt / 2) * 2) == icnt) {
			ibf1 += eval(scode.substr(icnt - 1, 1));
		}
		else {
			ibf2 += eval(scode.substr(icnt - 1, 1));
		};
	};
	
	ibf1 = (ibf1 * 3) + ibf2;
	ivar = ibf1 - (Math.floor(ibf1 / 10) * 10);
	ivar = 10 - ivar;
	
	if (ivar == 10) {
		swrk = scode.substr(0, 12) + "0";
	}
	else {
		swrk = scode.substr(0, 12) + ivar;
	};
	
	return swrk;
};
/**************************************************************************************************
*	機能：雑誌コードのチェック
*	引数：Tコード、XXXX-XX形式、XXXXX形式
*	戻り：５桁コード
***************************************************************************************************/
function zsicodecheck(scode) {
	var swrk;
	var schk;
	
	if (m_kanjicheck(scode)) return "";
	
	swrk = ZenToHan(document.main.txt2.value);
	swrk = swrk.toUpperCase();
	
	if (swrk.substr(0, 1) == "T") {
		swrk = swrk.substr(1, swrk.length -1);
	};
	
	if ((swrk.substr(0, 2) == "10" || swrk.substr(0, 2) == "11") && swrk.length == 13) {
		swrk = MOD13(swrk);
		if (swrk.length == 0) return "";
		swrk = swrk.substr(2, 5);
	}
	else if (swrk.indexOf("-", 0) != -1) {
		swrk = swrk.substr(0, swrk.indexOf("-", 0));
		if (isNaN(swrk)) return "";
	}
	else {
		if (isNaN(swrk) || swrk.length > 5) {
			return "";
		};
	};
	
	while (swrk.length < 5) {
		swrk = "0" + swrk;
	};
	
	return swrk;
};
/**************************************************************************************************
*	機能：日付指定
*	引数：日付の種類 "YYYY", "M", "D" のみ
*   　　　加減数
*	　　　日付（省略したら今日の日付で計算）
*	戻り：計算結果日付  異常のときは ""
***************************************************************************************************/
function DateAdd(kbn, num, dat) {
	var iyy;
	var imm;
	var iwy;
	var iwm;
	var idd;
	var swk;
	var dwk;
	var icnt;
	var sitem;
	
	// 数字のチェック
	if (isNaN(num)) return "";
	num = parseInt(num);
	
	// 日付を取得 YYYY/MM/DD
	if (dat.length > 0) {
		swk = m_datecheck(dat, "YYYY/MM/DD");
		if (swk.length == 0) return "";
	}
	else {
		dwk = new Date();
		swk = dwk.getFullYear() + "/" + (dwk.getMonth() + 1) + "/" + dwk.getDate();
	};
	
	// 年月日を分割
	sitem = swk.split("/");
	
	iyy = parseInt(sitem[0], 10);
	imm = parseInt(sitem[1], 10);
	idd = parseInt(sitem[2], 10);
	
	// 区分は？
	switch(kbn.toUpperCase()) {
		
		case "Y":		// 年指定
		case "YYYY":
			
			iyy += parseInt(num);
			swk = iyy + "/" + imm + "/" + idd;
			
			iwk = 31;
			for (icnt = 31 ; icnt > 1 ; icnt--) {
				dwk = new Date(iyy + "/" + imm + "/" + icnt);
				if (dwk.getDate() == icnt) {
					iwk = icnt;
					break;
				};
			};
			
			if (idd > iwk) {
				idd--;
			};

			swk = iyy + "/" + imm + "/" + idd;
			break;
		
		case "M":		// 月指定
		case "MM":
			
			if (num > 0) {
				do {
					if (num < 12) {
						imm += num;
						num = 0;
						
						if (imm > 12) {
							iyy ++;
							imm -= 12;
						};
					}
					else {
						num -= 12;
						iyy ++;
						
						if (imm > 12) {
							imm -= 12;
							iyy ++;
						};
					};
					
					iwk = 31;
						for (icnt = 31 ; icnt > 1 ; icnt --) {
							dwk = new Date(iyy + "/" + imm + "/" + icnt);
							if (dwk.getDate() == icnt) {
								iwk = icnt;
								break;
							};
						};

				}while (num > 0);

				while (idd > iwk) {
					idd --;
				};
				
				swk = iyy + "/" + imm + "/" + idd;
			}			
			else if (num < 0) {
					
				imm += num;
				
				while (imm < 1) {
					iyy --;
					imm += 12;
				};
				
				iwk = 31;
				for (icnt = 31 ; icnt > 1 ; icnt --) {
					dwk = new Date(iyy + "/" + imm + "/" + icnt);
					if (dwk.getDate() == icnt) {
						iwk = icnt;
						break;
					};
				};
				
				while (iwk < idd) {
					idd--;
				};
				
				swk = iyy + "/" + imm + "/" + idd;
			};
			break;
			
		case "D":		// 日指定
		case "DD":
			
			if (num > 0) {
				do {
					iwk = 31;
					for (icnt = 31 ; icnt > 1 ; icnt--) {
						dwk = new Date(iyy + "/" + imm + "/" + icnt);
						if (dwk.getDate() == icnt) {
							iwk = icnt;
							break;
						};
					};
					
					if (num < iwk) {
						
						idd += num;
						num = 0;
						
						if (idd > iwk) {
							idd -= iwk;
							imm += 1;
							if (imm > 12) {
								iyy += 1;
								imm -= 12;
							};
						};
						
						//2月対策
						iwk = 31;
						for (icnt = 31 ; icnt > 1 ; icnt--) {
							dwk = new Date(iyy + "/" + imm + "/" + icnt);
							if (dwk.getDate() == icnt) {
								iwk = icnt;
								break;
							};
						};
						
						if (idd > iwk) {
							idd -= iwk;
							imm ++;
							if (imm > 12) {
								iyy ++;
								imm -=12;
							};
						};
					}
					else {
						
						num -= iwk;
						imm += 1;
						if (imm > 12) {
							iyy += 1;
							imm = 1;
						};
						
						iwk = 31;
						for (icnt = 31 ; icnt > 1 ; icnt--) {
							dwk = new Date(iyy + "/" + imm + "/" + icnt);
							if (dwk.getDate() == icnt) {
								iwk = icnt;
								break;
							};
						};
						
						if (idd > iwk) {
							idd -= iwk;
							imm += 1;
							if (imm > 12) {
								iyy += 1;
								imm = 1;
							};
						};
					};
				} while(num > 0);
				
				swk = iyy + "/" + imm + "/" + idd;
			}
			else if (num < 0) {
				do {
					
					if (idd + num > 0) {
						idd += num;
						break;
					};
					
					imm -= 1;
					if (imm < 1) {
						iyy -= 1;
						imm = 12;
						if (iyy < 0) return "";
					};
					
					iwk = 31;
					for (icnt = 31 ; icnt > 1 ; icnt--) {
						dwk = new Date(iyy + "/" + imm + "/" + icnt);
						
						if (dwk.getDate() == icnt) {
							iwk = icnt;
							break;
						};
					};
					
					num += iwk;
					
					if (num > 0) {
						idd += num;
					};
					
				} while(num < 0);
				
				swk = iyy + "/" + imm + "/" + idd;
			};
			
			break;
	
		default:
			break;
	};
	
	return swk;
};

/**************************************************************************************************
*	機能：日付チェック
*	引数：日付の種類 "YYYY/MM/DD","YYYY-MM-DD","YYYY.MM.DD" 形式 (YYでも可)
*	戻り：正常：true  異常：false
***************************************************************************************************/
function IsDate(dat) {

	var sitem;
	var iyy;
	var imm;
	var idd;
	var swk;
	var iwk;
	var dwk;
	var icnt;

	//日付取得
	if (dat.length > 0) {
		swk = m_datecheck(dat, "YYYY/MM/DD");
		if (swk.length == 0) return(false);
	}
	else {
		return(false);
	};
	
	//日付分割
	sitem = swk.split("/");
	iyy = parseInt(sitem[0],10);
	imm = parseInt(sitem[1],10);
	idd = parseInt(sitem[2],10);

	iwk = 31;
	for (icnt = 31 ; icnt > 1 ; icnt--) {
		dwk = new Date(iyy + "/" + imm + "/" + icnt);
		if (dwk.getDate() == icnt) {
			iwk = icnt;
			break;
		};
	};
	
	if (idd > iwk) {
		return(false);
	};

	if (imm > 12) {
		return(false);
	};

	return(true);
};


/*
'
'10桁のＩＳＢＮコードを13桁に変換する。(WebTotalより追加)
'
'履歴：	06/07/28	K.Nishi
'
*/
function Make_ISBNHyojiCode(sIn_Code){

    var sCode;      
    var iLoop;       
    var iBuff1;      
    var iBuff2;     
    var iDegit;    
    var sRet;
    
	//return sIn_Code

    sRet = "";

    if (sIn_Code.length == ""){
        return sIn_Code
    };
    
    if (sIn_Code.length == 13){
        return sIn_Code
    };
    
    sCode = "";
    sCode = "978" + sIn_Code.substr(0, 9) + "0";
    
    iBuff1 = 0;
    iBuff2 = 0;
    
    for (iLoop = 12 ; iLoop >= 1;iLoop--){
		
		if (iLoop % 2 == 0){
			iBuff1 = iBuff1 + parseInt(sCode.substr(iLoop-1, 1), "10");
		}
		else{
			iBuff2 = iBuff2 + parseInt(sCode.substr(iLoop-1, 1), "10");
		};
		
    };
    
    iBuff1 = (iBuff1 * 3) + iBuff2;
    iDegit = iBuff1 % 10;
    iDegit = 10 - iDegit;
    if (iDegit == 10){
        sRet = sCode.substr(0, 12) + "0";
    }
    else{
        sRet = sCode.substr(0, 12) + iDegit;
    };
  
	return sRet  
};

/*
13桁、ISBNコードを10桁に変換する。
*/
function Change_ISBN10Code(sIn_Code){
	
	var sret;
	var scode;
	
	scode = sIn_Code;
	if (scode.length != 13){
		return scode;
	};
	
	if (scode.substr(0,4) != "9784"){
		return scode;
	};

	if (scode.length == 13){
		scode = scode.substr(3, 9);
	};
	
	sret = Add_CheckDegit(scode);
	
	return sret;
};

/*
機能：sISBNCodeで示されたISBNコード9桁のチェックデジットを求め、10桁のISBNコードを設定する
引数：sISBNCode  = 入力ISBNコード ( 9桁 )
戻り：sRetISBNCode -> 出力ISBNコード ( 10桁 )
*/
function Add_CheckDegit(sISBNCode){
    var iWork;
    var iSumCnt0;	// ISBN各桁とウェイトとの積
    var iSumCnt1;	// 11の倍数
    var iDivCnt;	// 11で除算した数
    var sRetISBNCode;

	iWork = 0;
    iSumCnt0 = 0;
    iSumCnt1 = 0;
    iDivCnt = 0;
    sRetISBNCode ="";

    for (iWork = 1; iWork<=9;iWork++){
        iSumCnt0 = iSumCnt0 + parseInt(sISBNCode.substr((iWork-1), 1),"10") * (11 - iWork);
    };

    iDivCnt = Math.ceil(iSumCnt0 / 11); //切り上げ

    iSumCnt1 = iDivCnt * 11;
    if (9 < (iSumCnt1 - iSumCnt0)){
        sRetISBNCode = sISBNCode.substr(0, 9) + "X";
    }
    else {
		sRetISBNCode = sISBNCode.substr(0, 9) + "" + (iSumCnt1 - iSumCnt0);
    };
    return sRetISBNCode
};

//-->