数字を入力することで、任意の文字を返して来るには？ たとえば、「１」と入力したら明治とか「２」なら大正とか・・・

質問

初心者のものです。教えてください。今、顧客管理システム？みたいなものを作成したく思っているのですが、顧客の生年月日ですが、Textに数字を入れたら（１とか２とか３とか）、Labelに「１」なら明治、「２」なら大正「３」なら昭和と表示させるにはどのようにしたらいいのでしょうか？また、同じようにtextに年月を入れて、最終的に年齢を表示させてたいのですが、どうしたらいいでしょうか？教えてください。

回答No.2

take130

私だったら、配列を使うかな。

例えば、strNengou配列を用意して、
strNengou(1)="明治"、strNengou(2)="大正"、strNengou(3)="昭和"
という値を予めセットしておきます。
後は、テキストの値を配列の添え字にしてあげます。
Label1.Caption = strNengou(Text1.Text)

>年齢を表示させてたい
これも、同様に配列で実現できます。
例えば、昭和の時は…
intNensu(3)=1925にしておいて
昭和22年生まれの人は、2007年時の年齢というと
{調べたい年月 - (配列 + 和暦)}で求められるので、
2007 - (intNensu(3) + 22) = 60
という具合にしてはどうでしょうか？

回答No.1

utugi_taro

>「１」なら明治、「２」なら大正「３」なら昭和と表示

いろいろなやり方があります。
1．定数を定義して取得
2．定義ファイルを作って読み込む
3．専用の関数を作る

楽なのは1でしょうか。
Constで定義したものを判定しながら取得。

>最終的に年齢を表示

現在の年から入力された年を引くロジックを書くのが手っ取り早いですね。
例えば　DateTime.Now.Year - CInt(Text1.Text)