Дата и время

[alex_ustas]

Работаю я на Украине, соответсветнно региональные установки у меня "украинские". Но, есть некоторые документы, которые оформляются на русском.
Вот код, который добавляет мне Чило, Месяц и Год в ячейку.
Workbooks("calc.xls").Worksheets("calc").Range("A11").Value = format(Now, "dd, mmmm yyyy p.")
Но добавляет-то он "Вересень" вместо "Сентябрь" Есть выход из этого положения?

[alibek]

Своя функция MonthName
Может и можно как-то извратиться и вытянуть информацию из локалей, но получить локаль, отличную от текущей... не знаю даже, с чего начать.

[tyomitch]

Дык, а в чём проблема?

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

MonthName = Choose(Month(Now), "Январь", "Февраль", "Март", ...)


[alex_ustas]

Ну, а ты пробовал. Я сделал так:
Select Case MonthUa
Case "Січень": MonthName = "января"
Case "Лютий": MonthName = "февраля"
Case "Березень": MonthName = "марта"
Case "Квітень": MonthName = "апреля"
Case "Травень": MonthName = "мая"
Case "Червень": MonthName = "июня"
Case "Липень": MonthName = "июля"
Case "Серпень": MonthName = "августа"
Case "Вересень": MonthName = "сентября"
Case "Жовтень": MonthName = "октября"
Case "Листопад": MonthName = "ноября"
Case "Грудень": MonthName = "декабря"
End Select
с вызовом этой функции из рабочей книги:
MonthUa = format(Now, "mmmm")
MonthRUS = MonthName(MonthUa)
CurDATA = format(Now, "dd") + " " + MonthRUS + " " + format(Now, "yyyy") + " г."
Workbooks("calc.xls").Worksheets("calc").Range("A11").Value = CurDATA

[tyomitch]

alex_ustas, если уж делаешь Case - делай по номеру месяца, а не по названию. Будет гораздо быстрее.