Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5480 / 13644 ツリー ←次へ | 前へ→

【50537】元号を西暦に Toshi 07/7/31(火) 13:36 質問[未読]
【50538】Re:元号を西暦に マクロマン 07/7/31(火) 14:11 発言[未読]
【50541】Re:元号を西暦に Toshi 07/7/31(火) 15:46 質問[未読]
【50542】Re:元号を西暦に マクロマン 07/7/31(火) 15:55 発言[未読]
【50543】Re:元号を西暦に Toshi 07/7/31(火) 17:16 質問[未読]
【50552】Re:元号を西暦に マクロマン 07/7/31(火) 20:42 発言[未読]
【50554】Re:元号を西暦に Toshi 07/7/31(火) 21:08 お礼[未読]

【50537】元号を西暦に
質問  Toshi  - 07/7/31(火) 13:36 -

引用なし
パスワード
   可能であれば教えてください。
テキストボックス1に入力した任意の数字、この数字は元号を意味する。
イベントを起こすと、テキストボックス2に西暦に変換された数字が入る
(例:テキストボックス1に16と入力した場合、これは平成16年を表
し、テキストボックス2には2004と表示される)。イベントは何でも
構わないです。

【50538】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 14:11 -

引用なし
パスワード
   平成以外もありますか?

単に
1988
足すだけではだめ?

【50541】Re:元号を西暦に
質問  Toshi  - 07/7/31(火) 15:46 -

引用なし
パスワード
   平成以外もあります

【50542】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 15:55 -

引用なし
パスワード
   テキストボックスに
16と入力したら平成16年ということですが、
入力された数値と元号(??、明治、大正、昭和、平成)
との関連はどこで判断するのですか?

明治、昭和、平成に16年は存在します。

【50543】Re:元号を西暦に
質問  Toshi  - 07/7/31(火) 17:16 -

引用なし
パスワード
   その通りですね、説明が足りないようでした。テキストボックス1のすぐ左横に
ラベルを貼り付けて、そのラベル上をクリックすることにより、昭和・平成が
交互に表示するよにします。平成か昭和の判断はここで行います。

【50552】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 20:42 -

引用なし
パスワード
   入力した年の1月1日が日付として存在したら
西暦の年を表示します。

平成元年には1/1は存在しませんが、エラーになりませんでした。
かえって式のバグかな?とも思いましたが、原因は分かりません・・・。

Dim mydate As Date
 If IsDate(Me.Label1.Caption & Me.TextBox1.Value & "/1/1") Then
   mydate = DateValue(Me.Label1.Caption & Me.TextBox1.Value & "/1/1")
   MsgBox Year(mydate)
 Else
   MsgBox "存在しない年です。"
 End If

【50554】Re:元号を西暦に
お礼  Toshi  - 07/7/31(火) 21:08 -

引用なし
パスワード
   十分です。ありがとうございました。

5480 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free