Итак, как извлечь номер месяца мы знаем, но нам нужно его перевести на английский. Вот так это выглядит:
1 январь January 2 февраль February 3 март March 4 апрель April 5 май May 6 июнь June 7 июль July 8 август August 9 сентябрь September 10 октябрь October 11 ноябрь November 12 декабрь December
Вот и создадим глобальную функцию.
Функция ДатаПоАнглийски(ДатаПеревода) export ЗначениеМесяца = ДатаМесяц(ДатаПеревода); Если ЗначениеМесяца=1 Тогда Возврат "January" КонецЕсли; Если ЗначениеМесяца=2 Тогда Возврат "February" КонецЕсли; Если ЗначениеМесяца=3 Тогда Возврат "March" КонецЕсли; Если ЗначениеМесяца=4 Тогда Возврат "April" КонецЕсли; Если ЗначениеМесяца=5 Тогда Возврат "May" КонецЕсли; Если ЗначениеМесяца=6 Тогда Возврат "June" КонецЕсли; Если ЗначениеМесяца=7 Тогда Возврат "July" КонецЕсли; Если ЗначениеМесяца=8 Тогда Возврат "August" КонецЕсли; Если ЗначениеМесяца=9 Тогда Возврат "September" КонецЕсли; Если ЗначениеМесяца=10 Тогда Возврат "October" КонецЕсли; Если ЗначениеМесяца=11 Тогда Возврат "November" КонецЕсли; Если ЗначениеМесяца=12 Тогда Возврат "December" КонецЕсли; КонецФункции
А теперь вызовем ее.
//******************************************* Процедура Сформировать() Перем пр; пр= ДатаПоАнглийски(РабочаяДата()); Т = СоздатьОбъект("Таблица"); Т.ВывестиСекцию("Секция_1"); Т.ТолькоПросмотр(1); Т.Показать(); КонецПроцедуры
И смотрим результат.
Все правильно, сейчас декабрь (вы можете читать эти шаги в другое время кстати :).