Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31437 / 76738

←次へ　｜　前へ→


	【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

0 hits

▼

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