Функции

[Волк]

Народ использую функцию MonthName.Примерно так:"MonthName(Month(Me.Calendar1.V alue))".Как сделать чтобы например месяц "Апрель" стал месяцем "Апреля".Здесь эта тема обсуждалась но не до конца:
http://www.programmersforum.ru/newth...newthread&f=20

[HighStar]

А что тут обсуждать? Кстати, указанная тема как-то криво открывается - что я делаю не так?

Dim MN As String
MN = MonthName(Month(Me.Calendar1.Value))
Select Case Right$(MN, 1)
Case "й", "ь": Mid(MN, Len(MN), 1) = "я"
Case Else: MN = MN + "а"
End Select

или

Dim MN As String
MN = MonthName(Month(Me.Calendar1.Value))
MN = Replace(Replace(MN, "ь", "я"), "й", "я")
If Right$(MN, 1) <> "я" Then MN = MN + "а"

или

If Right$(MN, 1) = "т" Then MN = MN + "а" Else Mid(MN, Len(MN), 1) = "я"

[SAS888]

Если результат требуемого преобразования нужно вставлять в ячейку рабочего листа, то ничего делать не нужно. В Excel все для этого уже сделано.
Установите формат требуемой ячейки

[$-FC19]ММММ

Теперь попробуйте ввести в ячейку любое значение в формате "Date".