EXCEL（VBA）日付を求める。

2018年5月21日2024年3月23日

過去、未来の日付を求めるマクロ。

NEW_EDATE を基点に、日付を求める例題です。

※ 例）NEW_EDATEに、2018/5/20 を入力。

  
'### 基点日
   If IsDate(NEW_EDATE) = False Then '【日付が正しいかチェック】
      MsgBox ("基本日付を正しく入力してください"), vbCritical
      Exit Sub
   End If

'### NEW_EDATEから同月1日算出
   NEW_SDATE = DateSerial(Year(NEW_EDATE), Month(NEW_EDATE), 1) '【同月の1日作成】

※（NEW_SDATE）2018/5/1
※（NEW_EDATE）2018/5/20

'### 前年同月算出
   OLD_SDATE = DateAdd("yyyy", -1, NEW_SDATE) '【NEW_SDATEから1年前作成】
   OLD_EDATE = DateAdd("yyyy", -1, NEW_EDATE) '【NEW_EDATEから1年前作成】

※（OLD_SDATE）2017/5/1
※（OLD_EDATE）2017/5/20


'### NEW_EDATEから前月の月1日算出
   MM_SDATE = DateAdd("m", -1, NEW_SDATE) '【NEW_SDATEから1前月作成】
   MM_EDATE = DateAdd("m", -1, NEW_EDATE) '【NEW_SDATEから1前月作成】

※（MM_SDATE）2018/4/1
※（MM_EDATE）2018/4/20