Get month names in French?

[b5177241]

Hi -- I know that I can get the month name for a date, e.g.:

Dim myMonth As String = MonthName(Month(myDate))

which gives me January, February, etc.

What I need is to *also* get the month name in French, for a bilingual app I'm working on. Note that the app decides the language to display based on values supplied to the program, not the current locale settings.

Is there a simple, canned way to do this or should I use a lookup array for the month names? Or, something else?

[MattP]

Supply the CultureInfo you want to use to the program.

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim englishCultureInfo = New Globalization.CultureInfo("en-US")
        Dim frenchCultureInfo = New Globalization.CultureInfo("fr-FR")

        Dim d = DateTime.Now

        MessageBox.Show(GetMonthName(d, englishCultureInfo))
        MessageBox.Show(GetMonthName(d, frenchCultureInfo))
    End Sub

    Private Function GetMonthName(d As DateTime, ci As Globalization.CultureInfo) As String
        Return ci.DateTimeFormat.GetMonthName(d.Month)
    End Function

[b5177241]

Perfect! Thanks!!