先月、今月、翌月の月末日を調べてくれるVBS

  '今月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date) + 1, 0)
  '前月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date), 0)
  '翌月の月末日
  MsgBox DateSerial(Year(Date), _
         Month(Date) + 2, 0)

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。