Страницы: 1
RSS
Месяц в родительном падеже (VBA)
 
Здравствуйте!  
Помогите, пжл!  
Есть первоисточник (дата в ячейке С2).  
Как просклонять название месяца в MsgBox?  
1.Нашёл только формулы (у меня офис 10, будут ли они работать в 1997-2003)?  
2. Мне хотелось бы прописать это в VBA.  
 
PS М.б. этот вопрос где-то обсуждался? Мне не удалось найти.  
Буду благодарен за ссылку.  
 
Спасибо!
 
Не очень понятно, что Вы хотите получить. Может быть это?  
MsgBox "Обзор за " & Format(Date, "[$-FC19]dd mmmm yyyy г.;@")
 
2 Юрий М  
 
Точно. Спасибо!  
Простите за невнятное объяснение.  
 
ОФФ Вдвойне приятно когда на непонятный вопрос получаешь нужный отвкт. :о))  
 
 
В следующий раз постараюсь быть корректнее.  
Ещё раз благодарю Вас.  
Спасибо!
 
Простите.  
А эта вещь будет работать в офисе 97-2003?  
У меня, к сожалению, нет возможности проверить сейчас.  
Подскажите, пжл. А то я читал, что эта формула не всегда корретно работает.  
Спасибо!
 
Будет
 
Спасибо, Сергей!!!
 
В 2000 это не работает: Format(Date, "[$-FC19]dd mmmm yyyy г.;@")
Функция для получения даты в таком формате:  
 
Function DateRodit(d)  
'возвращает текстовое представление даты в виде "01 сентября 2001"  
Dim m$  
m = LCase$(MonthName$(Month(d)))  
If Right$(m, 1) = "т" Then m = m & "а" Else: m = Left$(m, Len(m) - 1) & "я"  
DateRodit = Format(d, "DD """ & m & " ""YYYY")  
End Function
 
Я про 2003 говорил.  
Извиняюсь, пропустил что речь о нескольких версиях...
Страницы: 1
Читают тему
Наверх