Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5493 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   可能であれば教えてください。
テキストボックス１に入力した任意の数字、この数字は元号を意味する。
イベントを起こすと、テキストボックス２に西暦に変換された数字が入る
（例：テキストボックス１に１６と入力した場合、これは平成１６年を表
し、テキストボックス２には２００４と表示される）。イベントは何でも
構わないです。
【50538】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 14:11 -
引用なし
パスワード
   平成以外もありますか？

単に
1988
足すだけではだめ？
【50541】Re:元号を西暦に
質問  Toshi  - 07/7/31(火) 15:46 -
引用なし
パスワード
   平成以外もあります
【50542】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 15:55 -
引用なし
パスワード
   テキストボックスに
16と入力したら平成１６年ということですが、
入力された数値と元号(？？、明治、大正、昭和、平成)
との関連はどこで判断するのですか？

明治、昭和、平成に１６年は存在します。
【50543】Re:元号を西暦に
質問  Toshi  - 07/7/31(火) 17:16 -
引用なし
パスワード
   その通りですね、説明が足りないようでした。テキストボックス１のすぐ左横に
ラベルを貼り付けて、そのラベル上をクリックすることにより、昭和・平成が
交互に表示するよにします。平成か昭和の判断はここで行います。
【50552】Re:元号を西暦に
発言  マクロマン  - 07/7/31(火) 20:42 -
引用なし
パスワード
   入力した年の１月１日が日付として存在したら
西暦の年を表示します。

平成元年には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 -
引用なし
パスワード
   十分です。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5493 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free