View Single Post
Old 25-12-2010, 15:57
Alex's Avatar
Alex Alex is offline
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4

Since you are always using English month names, why not just hard-code them like this:

Function EnglishMonthName(ByVal nMonth As Long) As String
    Dim monthNames() As Variant
    monthNames = Array("January", "February", "March", _
            "April", "May", "June", "July", "August", _
            "September", "October", "November", "December")
    EnglishMonthName = monthNames(nMonth - 1)
End Function
Then you can use this function instead of VBA's MonthName
Reply With Quote