日付の表示について

質問

im myDate As Date

myDate = TextBox1.Text

Sheet1.Range("B1").Value = myDate
Sheet1.Range("B1").NumberFormatLocal = "m"

***********************************************
上のようにTextBoxで入力された日付で、
1日≦myDate＞25日の場合は（例：12/10）⇒ セルB1には「12月」と表示
25日≦myDate≧31日の場合は（例：12/25）⇒ セルB1には「1月」と表示
させたいのですが、どのようにしたらよいのでしょうか。

回答No.1

masa_019 · ベストアンサー

こんにちは。
25日以上なら入力した日付の
翌月を表示したいってことですよね。

単純に25日以上なら myDate に
7を加えるというのはどうですか？

Dim myDate As Date
myDate =TextBox1.Text
If Day(myDate) >= 25 Then myDate = myDate + 7
Sheet1.Range("B1").Value = myDate
Sheet1.Range("B1").NumberFormatLocal = "m"

お礼

回答ありがとうございます。

見事解決することができました。
本当にありがとうございました。