EXCEL(VBA)日付を求める。

2018年6月18日EXCEL/ACCESS, 備忘録(びぼうろく)

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

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