Excel VBA質問箱 IV

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

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


31431 / 76732 ←次へ | 前へ→

【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
2 hits

【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 お礼

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