Working with Months and Years 1

[JohnBoy2005]

How would I go about writing a routine that would list the next 18 months.

May 07
Jun 07
Jul 07
etc...

Cheers

John

 

[xwb]

today = now
mm = month(today)
yy = year(today)
for ii = 1 to 18
   WScript.Echo MonthName(mm, true) & " " & cstr(yy)
   mm = mm + 1
   if mm > 12 then
      mm = 1
      yy = yy + 1
   end if
next

 

[JohnBoy2005]

Works great.

Cheers

John

 

[Tarwn]

Rather than manually increment through the month and year, why not allow the DateAdd function to do it for you?

Dim tdate, i
tdate = Now()
For i = 1 to 18
   tdate = DateAdd("m",1,tdate)
   Response.Write MonthName(Month(tdate)) & " " & Year(tdate) & "<br/>"
Next

The downside of this function is that it is probably a little less efficient (a call ot Month() and Year() in every loop instead of using a variable for each), but it is more compact without losing it's readability.
-T

 

[Hans8823]

Why not use DateSerial and Format?

_Year = Year(date())
_Month = Month(date())
For i = 0 to 17
  strMonth = Format(DateSerial(_Year, (_Month + i), 1), "mmm yyyy")
Next

 

[Tarwn]

Unfortunately Format is not a function in VBScript.