公開:16.12.21
nextday = Format(DateAdd("d", 1, CDate(targetday)), "yyyy/m/d")
'当月の最終日(指定した日付から0ヶ月後の末日) eomonth = Format(WorksheetFunction.eomonth(CDate(targetday), 0), "d")