日付 ' If $SetDate  $SetDate.Year 年 $SetDate.Month 月 $SetDate.Day 日 〜 $Date.Year 年 $Date.Month 月 $Date.Day 日 ' Else   ' EndIf 前月 前日 昨日 翌日 ' If $Date.Day = $Date.LastDay 翌月 ' Else 翌月 ' EndIf