How to change the Year?

[mv8167]

It must be a Friday meltdown-thing, but Happy Friday everyone

What is the best way to change the current year? I need to subtract 3 or 10 years.

I have:

Code:

intYear = Year(Now)

With Browser("Preferences").Page("Preferences")
    .WebList("Select_Tax_Year").Select (intYear - 3 ) '"2008"
    .WebElement("Clear").Click
    .WebList("Select_Tax_Year").Select  (intYear - 10 ) '"2001"
    .WebElement("Close").Click
End With

thx ;-)

---

Im on my way home. lol

Would ths work?

Code:

intYear = year(Now.AddYears(-3))
and
intYear = year(Now.AddYears(-10))

[Shridevi.Salagare]

year(now) - 3 .would work fine.

[mv8167]

Thx Shridevi

I am pretty sure I tried this already but the value would not be accepted in my drop down box.

Maybe it was Friday brain issue and I had something else wrong. I will try again. ;-)

[mv8167]

These work fine:

Code:

intYear = Year(Now)            '=2011
intYear = Year(Now) - 3       '=2008
intYear = Year(Now) - 10      '=2001

This works"

Code:

'Browser("Preferences").Page("Preferences").WebList("Select_Tax_Year").Select "2001"

But these dont:

Code:

With Browser("Preferences").Page("Preferences")
.WebList("Select_Tax_Year").Select "Year(Now) - 3"             '"2008"
.WebList("Select_Tax_Year").Select "intYear"                     '"2001"

nor these:

Code:

.WebList("Select_Tax_Year").Select (Year(Now) - 3)             '"2008"
.WebList("Select_Tax_Year").Select intYear                         '"2001"

Can I use a variable to select a drop down's list value?

[vIns]

I am not sure ...i think the value should be a string.
can u try this

Code:

.WebList("Select_Tax_Year").Select CStr(Year(Now) - 3)

[mv8167]

VIns

That did the trick. I have never used CStr but I will now. Thx!

For those who are interested:
These:

Code:

intYear = Year(Now)
Min3Year = CStr(intYear - 3)
Min10Year = CStr(Year(Now) - 10)

Return these:
2011
"2008"
"2001"

The "2008" and "2001" with quotes is what I need to change a combo box.

thx
Lorena

---

How about the Month?

I have:

Code:

intMonth = Month(Now)

Min1Month = CStr(intMonth - 1)
Which gives me "8".
or
Min1Month = intMonth - 1

Which gives me 8.

How do I change the "8" or 8 to "August"?

I figured it out, nvr mind.

Code:

intMonth = Month(Now)
Min1Month = intMonth - 1
ThisMonth = MonthName(Min1Month)
or
ThisMonth = MonthName(Month(Now) -1)