название месяца по английски

[Naug]

MonthFunction(month) выдает текстовое имя месяца по русски (логически мысля это из-за настроек компютера), а мне нужно И по-русски И по ангельски. Как бы это замутить?

[GSerg]

=choose(month(date),"january", "febr", ... "december")

[gaidar]

Если функция MonthFunction() выдает не индекс (от 1 до 12), а текстовое имя, то тогда можно сделать только так (choose работать не будет, GSerg как всегда не вник в суть вопроса , как я понял надо именно локализовать функцию MonthFunction()).

Код: Выделить всё


Function RussianMonthFunction(month)

Select MonthFunction(month)

Case "January"
RussianMonthFunction = "Январь"

' ... и т.д.

End Select

End Function



[alibek]

Вот, блин, эстеты

Код: Выделить всё

'Localized Month Name
Function GetLocalMonthName(Date, ByVal Locale As String) As String
'Locale =
'  rus - Russian
'  eng - English
Locale = LCase$(Locale)
Select Case Month(Date)
  Case 1
    GetLocalMonthName = Decode(Locale, "rus","Январь", "eng","January", "###")
  Case 2
    GetLocalMonthName = Decode(Locale, "rus","Февраль", "eng","February", "###")
  ...
End Month
End Function

Function Decode(ByVal Value As Variant, ParamArray Pairs() As Variant) As Variant
Dim N As Long, I As Long
N = UBound(Pairs) - LBound(Pairs) + 1
N = N Mod 2
If N = 1 Then Decode = Pairs(UBound(Pairs))
For I = LBound(Pairs) To UBound(Pairs) - N Step 2
  If Value = Pairs(I) Then
    Decode = Pairs(I + 1)
    Exit Function
  End If
Next I
End Function


[gaidar]

ИМХО, мы тут за человека решаем. А что ему нужно-то?
Может MonthFunction(month) принимает индекс месяца сама по себе.

Давайте попросим кода "Код, код, код" (типа "Сне-гу-ро-чка ")