VBA 今日の日付に+1した場合、月末失敗する

質問

VBA初心者の私ですが、いつも回答者さまに助けていただいております。
今回も質問させてください。

エクセル2002を使用しています。

今日の日付に＋1をして、翌日の日付を変数に入れたいのですが、
月末の場合、失敗してしまいます。
例えば、3月31日に＋1をすると、3月32日になってしまします。

Dim MMM As String, DD As String
MMM = Format(Date, "MMM")
DD = Day(Date) + 1

DDが文字列なので当然だと思い、変数宣言を日付型にするとエラーになります。

Dim MMM As Date, DD As Date
MMM = Format(Date, "MMM")
DD = Day(Date) + 1

実行時エラー‘13’　型が一致しません。
この時、MMMの値は 0:00:00 です。

日付型にすれば月末を認識して4月1日になってくれると思ったのですが・・・。
私の書き方が悪いのでしょうか?
他に書き方がありましたら教えてください。
どうぞよろしくお願いします。

回答No.2

kagakusuki · ベストアンサー

「日」のみの値にしてから1を加えるからおかしくなるのです。
　翌日の日付を求めてから、「月」や「日」のみの値に変換すれば良いだけです。

Dim MMM As String, DD As String, Nextday As Date
Nextday = Date + 1
MMM = Format(Nextday, "MMM")
DD = Day(Nextday)

お礼

なるほど!!!　ありがとうございます。

回答No.4

山田 太郎（@f_a_007）

【添付図差し替え】ミスってました。

回答No.3

山田 太郎（@f_a_007）

Q、他に書き方がありましたら教えてください。
A、添付図のような書き方もあります。

ただし、標準モジュールに次の関数を登録する必要があります。

Option Explicit

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

回答No.1

ubku

日付の計算をするときはDateAdd関数を使います。

1日後を求める場合は

a = DateAdd("d", 1, CDate("2016/3/31"))

で

2016/4/1

が返ります。