Передаем в функцию дату, например 13.08.2009 11:13:54, получаем 13 августа 2009 г.

  Функция ДатаПрописью(Дат) Экспорт

    Результат="";

    Если ТипЗнч(Дат)=Тип("Дата") Тогда

        Результат=Формат(Дат,"ДФ=""дд ММММ гггг 'г.'""");

    КонецЕсли;

    Возврат Результат

КонецФункции