Months 2

[dtfrancis15]

I pass the variable "Months" from page 1 to 2, and then using the following set dtDate as today and dtThen as the date 3, 6, 12 or 18 months prior as set by Months.

How do I set this as a useable variable for the following reports?? How do I use "Months" in place of -2 in the formula.



Dim dtDate, strDate
dtDate = Now()
strDate = Year(dtDate) & Right("00" & Month(dtDate), 2) & Right("00" & Day(dtDate), 2)

dim dtThen
dtThen = Now()
Response.Write DateAdd("m", -"3", dtNow)

 

[Mighty]

You seem to be using lots of different date variables - dtDate, strDate, dtThen, dtNow and there is no mention of -2 in anything you have so I am not really sure what you are referring to.

But if you want to subtract the value of months from the current date, then you can do something like:

dtNow = date()
dtThen = DateAdd("m", "-" & Request.Form("Months&quot, dtNow) Mise Le Meas,

Mighty

 

[dtfrancis15]

dtDate is todays date
strDate is todays date in a different format
dtThen is the date x months previous
strDateThen is the date x months previous in different format.


dtThen = DateAdd("m", "-" & Request.Form("Months&quot, dtNow)

This reports an error because of "-" part. is this how it is meant to be entered?

 

[Mighty]

Are you using the POST method to pass the Months variable to the second page. If you are not, then try:

dtThen = DateAdd("m", "-" & Request.Querystring("Months&quot, dtNow)

If you are using POST, try:

Months = "-" & trim(Request.Form("Months&quot)
dtThen = DateAdd("m", Months, dtNow)

Mise Le Meas,

Mighty

 

[dtfrancis15]

This is the error I get - swears blind the "-" is at fault:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "-"]'
/datawhsesample/Service/Contracts/InActive/teamcontracts.asp, line 45

 

[Mighty]

Sorry, my mistake.

Try the following:

Months = 0 - CInt(Request.Form("Months&quot)
dtThen = DateAdd("m", Months, dtNow)

Mise Le Meas,

Mighty