var yy,mm,dd,kk;
function kabataro(form){

	if ((parseInt(form.yy.value) == 0)||(parseInt(form.yy.value) >9999)){
		alert('生まれた西暦を正しく入力してください(1〜9999までの数字)。');
		return;
	}
	else {true;}
	if ((parseInt(form.mm.value) == 0)||(parseInt(form.mm.value) >12)){
		alert('生まれた月を正しく入力してください(1〜12までの数字)。');
		return;
		}
	else {true;}
	if ((parseInt(form.dd.value) == 0)||(parseInt(form.dd.value) >31)){
		alert('生まれた日を正しく入力してください(1〜31までの数字)。');
		return;
	}
	else {true;}

	      with (Math) {
		//---year--
		y1 = floor (parseInt(form.yy.value) / 1000);
		y2 = floor ((parseInt(form.yy.value) - y1*1000)/ 100);
		y3 = floor ((parseInt(form.yy.value) - y1*1000 -y2*100)/ 10);
		y4 = floor (parseInt(form.yy.value) - y1*1000 -y2*100 - y3*10);
		y5 = y1 + y2 + y3 + y4;
			if ((y5 == 11)||(y5 == 22)) {
		 		yy = y5;
				}
			else {
		 		y6 = floor (y5 /10);
		 		y7 = y5 - y6*10;
		 		yy = y6 + y7;
					if (yy == 10) {
						yy = 1
					}
				}
		//---month---
		m1 = floor (parseInt(form.mm.value) / 10);
		m2 = floor (parseInt(form.mm.value) - m1*10);
			if (parseInt(form.mm.value) == 11) {
		 		mm = parseInt(form.mm.value);
				}
			else {
		 		mm = m1 + m2;
					if (mm == 10) {
						mm = 1
					}
				}
		//---day---
		d1 = floor (parseInt(form.dd.value) / 10);
		d2 = floor (parseInt(form.dd.value) - d1*10);
			if ((parseInt(form.dd.value) == 11)||	(parseInt(form.dd.value)) == 22) {
		 		dd = parseInt(form.dd.value);
				}
			else {
		 		dd = d1 + d2;
					if (dd == 10) {
						dd = 1
					}
				}
		//---kabbalah---
		kk = yy + mm + dd;
			if (kk < 10 ){
				true;
				}
			else {
				if ((kk == 11)||(kk == 22)) {
					true;
					}
				else {		
		 			k1 = floor (kk / 10);
		 			k2 = floor (kk - k1*10);
		 			kk = k1 + k2;
						if (kk == 10) {
							kk = 1
						}
					}
				}

			}

	if (kk == 1) {
            kk = 1
         	newwindow(kk);
	}


		else if(kk == 2) {
            kk = 2
         	newwindow(kk);
	}

		else if(kk == 3) {
            kk = 3
         	newwindow(kk);
	}

		else if (kk == 4) {
            kk = 4
         	newwindow(kk);
	}

		else if (kk == 5) {
            kk = 5
         	newwindow(kk);
	}

		else if (kk == 6) {
            kk = 6
         	newwindow(kk);
	}

		else if (kk == 7) {
            kk = 7
         	newwindow(kk);
	}

		else if (kk == 8) { 
            kk = 8
         	newwindow(kk);
	}

		else if (kk == 9) {
            kk = 9
         	newwindow(kk);
	}

		else if (kk == 11) {
            kk = 10
         	newwindow(kk);
	}

		else if (kk == 22) {
            kk = 11
         	newwindow(kk);
	}
		else {
			alert('生年月日を入力してください。計算できない場合は計算方法をご覧下さい。');
		}
		}


function newwindow(unmeisu) {
var msgkaba = new Array();

msgkaba[0]="<h3>運命数１　3/6(土)〜3/11(金)</h3>体調が気になれば早めの処置が功を奏します。仕事や対人も微妙な雰囲気があるので警戒心発令を！貰い物がありそう。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[1]="<h3>運命数２　3/6(土)〜3/11(金)</h3>対人関係にストレスを感じる週。意思表示をハッキリ行い振り回されないよう頑張ってね！特に仕事や金銭がらみは無理なく。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[2]="<h3>運命数３　3/6(土)〜3/11(金)</h3>親しい人の誘いや職場での対人は前向きで吉。面倒に思わずやる気発揮が鍵。ただし金銭の丼勘定はピンチになるので注意。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[3]="<h3>運命数４　3/6(土)〜3/11(金)</h3>家で無意味にすごしては駄目！外に出て行くことが鍵です。仕事は勢いに乗る動きが吉。出費は自重がラッキーのもと。<BR><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[4]="<h3>運命数５　3/6(土)〜3/11(金)</h3>対人は努力が必要なとき。仕事では我を通さずニコやかに、親しい関係や遊びは休止が吉。前半は中途半端に出費しないこと！<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[5]="<h3>運命数６　3/6(土)〜3/11(金)</h3>信頼できる人を選んで平和に過ごす時期。一般的な気遣いが功を奏します。自宅では思い切った骨折りがプラスです。<br><font color='#ff80ff'>幸運３★★★</font>☆☆";
msgkaba[6]="<h3>運命数７　3/6(土)〜3/11(金)</h3>仕事は無理押しや曖昧な進み方をすると失敗します。賢明に判断しましょう。対人は親しい人を基本に！金銭管理もテキパキ。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[7]="<h3>運命数８　3/6(土)〜3/11(金)</h3>くよくよや無計画は駄目。バタバタと行動して吉。よいプランを立ててリフレッシュする好機。仕事は淡々とでOKです。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[8]="<h3>運命数９　3/6(土)〜3/11(金)</h3>仕事は方向転換への努力吉。対人も状況を読んで時間を無駄にしないでね。金銭は制限の範囲で思い切りや発想転換を！<br><font color='#ff80ff'>幸運２★★</font>☆☆☆";
msgkaba[9]="<h3>運命数１１　3/6(土)〜3/5(金)</h3>悩みが晴れたり好転しやすい時期。行き詰まりをそのままにせず動きを出していきましょう。金銭の無計画は駄目です。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[10]="<h3>運命数２２　3/6(土)〜3/11(金)</h3>急な動きがでて、精神的負担になりやすいとき。周囲に期待せず無難な行動が最善。仕事は確実に進めて吉です。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";

	nwin = window.open("", "Newwindow","width=400,height=300");
	nwin.document.open();
	nwin.document.write("<HTML><HEAD>");
	nwin.document.write("<TITLE>カバラTarot週間運勢</TITLE>");
	nwin.document.writeln("<body bgcolor='#000000' text='#ffffff' leftmargin='10' topmargin='10'>");
	nwin.document.writeln(msgkaba[unmeisu - 1]);
	nwin.document.write("<div align='right'>by Active Tarot Reading</div>");
	nwin.document.write("</body></HTML>");
	nwin.document.close();

	return false;
}