VBScriptで末日を求める

えーと、昔VB6で組んだ『末日を求める』をVBScriptで組み直してみました。

◆『末日を求める』VBScript版

msgbox GetMatujitu(DateAdd("m", -2, Now))

Function GetMatujitu(MyDate)
     Dim strWkDate, vntMatubi
     strWkDate = Year(MyDate) & "/" & Month(MyDate) & "/31"
     vntMatubi = 30
     '日付として認識できるまで繰り返す
     Do While Not IsDate(strWkDate)
          strWkDate = Year(MyDate) & "/" & Month(MyDate) & "/" & vntMatubi
          '1日前にする
          vntMatubi = vntMatubi - 1
     Loop
     GetMatujitu = strWkDate
End Function