Month calulation issue

[mv8167]

Currently I have the following code:

Code:

intMonth = Month(Now)                          ' 9
ThisMonth = MonthName(intMonth)           ' "September"
Min1Month = MonthName(intMonth - 1)     ' "August"
Min6Month = MonthName(intMonth  - 6)

As is (which i just now found out in January) that when Now = 1, thus intMonth = 1, and Min1Month = 0.

When Now is <= 6, thus Min6Month = -5 to 0

What code is approprioate to use in both cases? How can I keep Min1Month and Min6Month between 1 and 12?

I have tried a few wzys other than going to a If Then for each case.

Thoughts?

[vIns]

Hi..
i just tried this...

Code:

MonthName(( intMonth - i +11 )mod 12 +1)

this will return correct values..
here i is 0 to 11
i=1- for last month
i=6 -6 months ago

[mv8167]

vIns

thx for the help. I will look up what the "mod 12 + 1" does to better understand this. I am guessing that this is vbScript?

So, I will try

Code:

intMonth = Month(Now) ' 1
ThisMonth = MonthName(intMonth)
Min1Month = MonthName(( intMonth - 1 +11 )mod 12 +1)
Min6Month = MonthName(( intMonth - 6 +11 )mod 12 +1)

etc...

UPDATE:

vIns, Your code worked perfectly for me. Thxxxxxxxx