Excel VBA質問箱 IV

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

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


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

26000 / 76737

←次へ　｜　前へ→


	【56073】Re:カレンダの年度(yearプロパティ)

かみちゃん - 08/5/31(土) 20:01 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>カレンダーコントロールを使っています。
>カレンダーの年度選択(combobox?)を、イベントで待っています。
>年度を変更するとイベント(_NewYear())で受けられますが、
>　年 = カレンダ.Year　として　変更後の年度の値を取得しようとしても
>年には、0(ｾﾞﾛ)しか格納されません。

現在どのようなコードになっているのでしょうか？

>目的は、選択した年度の和暦を(参考に)表示するためです。

以下のような感じではいかがでしょうか？
Sub Sample()
　Dim intYYYY As Integer
　
　intYYYY = 2008
　MsgBox intYYYY & "年は" & Format(DateSerial(intYYYY, 1, 1), "ggge") & "年です" & vbCrLf & _
　　Val(Format(DateSerial(intYYYY, 1, 1), "e"))
End Sub

1 hits

▼

【56072】カレンダの年度(yearプロパティ) takao 08/5/31(土) 19:39