Convert month # to month name

[mv8167]

I have:
intMonth = Month(Now)
Min1Month = CStr(intMonth - 1)

Which gives me "8".

Ho do I change the "8" to "August"?

 

[Jonmo1]

check out the DateAdd VBA function..

Sub test()
Dim x As Date, y As String
x = DateAdd("m", -1, Now)
y = Format(x, "mmmm")
End Sub

Hope that helps.

 

[VoG]

Try like this

Dim intMonth As Integer, Min1Month As Integer, sMonth As String
intMonth = Month(Now)
Min1Month = intMonth - 1
sMonth = Format(DateValue("1-" & Min1Month), "mmmm")
MsgBox sMonth

 

[mv8167]

i finally figured it out.

'Calculate Month as "Name"
intMonth = Month(Now)
ThisMonth = MonthName(intMonth) ' "September"
Min1Month = MonthName(intMonth - 1) ' "August"
Min6Month = MonthName(intMonth - 6) ' "March"