九星を求めるプログラム
こんにちは、いつもお世話になっています
練習で次のようなプログラムを作ったのですがうまく値が帰ってきません。何を入れても、「あなたは九紫火星です」が戻ってきます。どこが間違っているのか教えていただけますと非常に助かります…
九星の計算はここを見てください
http://homepage1.nifty.com/luck/newpage41.htm
htmlにはフォームがあって、生年月日を入力するようになっています。
誕生日 <INPUT TYPE=radio NAME=nengo VALUE=showa CHECKED>昭和
<INPUT TYPE=radio NAME=nengo VALUE=heisei >平成
<INPUT TYPE=text NAME=nen VALUE="" SIZE=3>年
<INPUT TYPE=text NAME=gatu VALUE="" SIZE=3>月
<INPUT TYPE=text NAME=hi VALUE="" SIZE=3>日
で、aspでは、
NENGO=Request.Form("nengo")
NEN=Request.Form("nen")
GATU=Request.Form("gatu")
HI=Request.Form("hi")
HIKAKU1=DateSerial(1985,GATU,HI)
HIKAKU2=DateSerial(1985,2,3)
If HIKAKU1<=HIKAKU2 Then
NEN=NEN-1
End If
Kyu1=Mid(NEN,1,1)
Kyu2=Mid(NEN,2,1)
Kyu=Kyu1+Kyu2
If Kyu>10 Then
Kyu=Kyu+1
End If
Select Case Kyu
Case 1
Response.Write "あなたは一白水星です"
Case 2
Response.Write "あなたは二黒土星です"
Case 3
(略)
Case 8
Response.Write "あなたは八白土星です"
Case Else
Response.Write "あなたは九紫火星です"
End Select
・
・
・
(続きは関係ないので省略)
すみませんがよろしくお願いします。
お礼
なかなか出来ないのですが、いろいろ調べていきながらトライしてみます。 ありがとうございました。