Programmatically, how would I convert the month from 1-12 to January -
December. Let's assume my variable for month is called MONTH.

Thanks

This should be close...

Dim intMonth As Integer

intMonth = 5
MsgBox Format(DateSerial(2000, intMonth, 1), "mmm")

--
HTH...

Jim Thomlinson


"Barb Reinhardt" wrote:

> Programmatically, how would I convert the month from 1-12 to January -
> December. Let's assume my variable for month is called MONTH.
>
> Thanks

Hi Barb,

you could try:-

Sub Month()

Dim Mnth As String
Mnth = Format(Date, "mmmm")
MsgBox "This month is : " & Mnth

End Sub


Les Stout

*** Sent via Developersdex http://www.developersdex.com ***