Excel VBA質問箱 IV

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

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


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

25979 / 76736

←次へ　｜　前へ→


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

takao - 08/6/1(日) 16:06 -


	引用なし

	パスワード

"かみちゃん"さん　ありがとうございました。解決しました。
月末時は正しく動作しない様なので、下記のようにしました。

Private Sub Calendar1_NewYear()
　　Calendar1.Day = IIf(Day(Date) > 15, Day(Date - 1), Day(Date + 1))
　　Calendar1.Day = Day(Date)
　　和暦.Text = Format(DateSerial(Calendar1.Year, 1, 1), "ggee年")
End Sub

初めての投稿でしたがすぐに回答頂き感謝します。今後共宜しくお願いします。

1 hits

▼

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