Month calulation issue

[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