[月末日を取得する]

１ヵ月後の「１日」から、１日引けば月末日が取得できます。

【ソースコード】

[tips0047.vbs]
Option Explicit

Dim dtmNowDate  ' 現在時刻
Dim lngYear     ' 年
Dim lngMonth    ' 月
Dim lngLastDay  ' 月末日

dtmNowDate = Date()
lngYear = Year(dtmNowDate)
lngMonth = Month(dtmNowDate)
lngLastDay = Day(DateSerial(lngYear, lngMonth + 1, 1) - 1)

WScript.Echo lngYear & "年" & _
    lngMonth & "月の月末日は" & _
    lngLastDay & "日です。"

【実行結果】

C:\> cscript //NoLogo tips0047.vbs
2004年12月の月末日は31日です。