//******************************************************************************
/// глДатаФормат(_дата,"№Нед (ДД.ММ.ГГГГ)")
Функция глДатаФормат( нДата, нФормат) Экспорт
ЗначВозврата = ""+нФормат;
Если ПустоеЗначение(нДата) = 1 Тогда
Возврат "<..>";
КонецЕсли;
тМесяцСтр = Формат(нДата,"Д ДДММММГГГГ");
тМесяцСтр = глСправаОт(тМесяцСтр," ");
тМесяцСтр = глСлеваОт(тМесяцСтр," ");
/// заменим и время...
вЧЧ = 0; вММ = 0; вСС = 0;
вТекВремяСтр = ТекущееВремя(вЧЧ,вММ,вСС);
вЧЧ = Лев(вТекВремяСтр,2);
вММ = Сред(вТекВремяСтр,4,2);
вСС = Прав(вТекВремяСтр,2);
вНомНедели = НомерНеделиГода(нДата);
СписЗамен = СоздатьОбъект("СписокЗначений");
Если Найти(ЗначВозврата,"ГГГГ")>0 Тогда СписЗамен.ДобавитьЗначение("ГГГГ",""+ДатаГод(нДата)); КонецЕсли;
Если Найти(ЗначВозврата,"ГГ")>0 Тогда СписЗамен.ДобавитьЗначение("ГГ", Прав(""+ДатаГод(нДата),2)); КонецЕсли;
Если Найти(ЗначВозврата,"ММММ")>0 Тогда СписЗамен.ДобавитьЗначение("ММММ",тМесяцСтр); КонецЕсли;
Если Найти(ЗначВозврата,"ММ")>0 Тогда СписЗамен.ДобавитьЗначение("ММ", Формат(ДатаМесяц(нДата),"Ч(0)2")); КонецЕсли;
Если Найти(ЗначВозврата,"мМ")>0 Тогда СписЗамен.ДобавитьЗначение("мМ", ""+ДатаМесяц(нДата)); КонецЕсли;
Если Найти(ЗначВозврата,"ДД")>0 Тогда СписЗамен.ДобавитьЗначение("ДД", Формат(ДатаЧисло(нДата),"Ч(0)2")); КонецЕсли;
Если Найти(ЗначВозврата,"ДД")>0 Тогда СписЗамен.ДобавитьЗначение("ДД", ""+ДатаЧисло(нДата)); КонецЕсли;
Если Найти(ЗначВозврата,"НН")>0 Тогда СписЗамен.ДобавитьЗначение("НН", Формат(НомерНеделиГода(нДата),"Ч(0)2")); КонецЕсли;
Если Найти(ЗначВозврата,"нН")>0 Тогда СписЗамен.ДобавитьЗначение("нН", ""+НомерНеделиГода(нДата)); КонецЕсли;
Если Найти(ЗначВозврата,"КК")>0 Тогда СписЗамен.ДобавитьЗначение("КК", ""+глНомерКварталаДаты(нДата)); КонецЕсли;
Если Найти(ЗначВозврата,"ЧЧ")>0 Тогда СписЗамен.ДобавитьЗначение("ЧЧ", вЧЧ); КонецЕсли;
Если Найти(ЗначВозврата,"WW")>0 Тогда СписЗамен.ДобавитьЗначение("WW", вММ); КонецЕсли; /// минуты уже есть, чуток меревернем ММ>>WW
Если Найти(ЗначВозврата,"СС")>0 Тогда СписЗамен.ДобавитьЗначение("СС", вСС); КонецЕсли;
Если Найти(ЗначВозврата,"№Нед")>0 Тогда СписЗамен.ДобавитьЗначение("№Нед", вНомНедели); КонецЕсли;
СЦ = 0;
Для СЦ = 1 По СписЗамен.РазмерСписка() Цикл
тПатернЗамн = "";
тПатернЗнач = СписЗамен.ПолучитьЗначение(СЦ,тПатернЗамн);
ЗначВозврата = СтрЗаменить(ЗначВозврата,тПатернЗнач,тПатернЗамн);
КонецЦикла;
Возврат ЗначВозврата;
КонецФункции // лДатаФормат()