九星を求めるプログラム

質問

こんにちは、いつもお世話になっています
練習で次のようなプログラムを作ったのですがうまく値が帰ってきません。何を入れても、「あなたは九紫火星です」が戻ってきます。どこが間違っているのか教えていただけますと非常に助かります…
九星の計算はここを見てください
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
　　　　　・
　　　　　・
　　　　　・
　　　　（続きは関係ないので省略）
すみませんがよろしくお願いします。

回答No.1

dsuekichi · ベストアンサー

VBで「+演算子」は、「算術加算」と「文字列連結」の２つの機能があります。
どちらとして動作するかは、前後のデータ型によります。

で、今回の場合、
> Kyu1=Mid(NEN,1,1)
> Kyu2=Mid(NEN,2,1)
「Kyu1」は「文字列」、「Kyu2」も「文字列」ですから、

> Kyu=Kyu1+Kyu2
「文字列連結」として機能し、「Kyu1」の文字列の後ろに「Kyu2」の文字列をくっつけます。

つまり、
> Kyu1=Mid(NEN,1,2)
と同じってことです。

「算術加算」をするなら「整数型」に型変換を行ってください。
例えば
> Kyu=CLng(Kyu1)+CLng(Kyu2)

お礼

なるほど、文字を連結する機能のこと存じませんでした。整数型ですか…。わかりやすく教えてくださってとても助かりました。どうもありがとうございました。