Функция добавления

{codecitation class="brush: vb; gutter: true;" width="500px" }

Функция ДобавитьНули(Значение, НужнаяДлинаЗначения)

Значение = СтрЗаменить(Формат(Значение, "ЧГ="), " ", "");
НадоНулей = НужнаяДлинаЗначения - СтрДлина(Значение);
ВедущиеНули = Формат(0,"ЧЦ="+НадоНулей+";ЧН=; ЧВН=; ЧГ=0");
Возврат ВедущиеНули + Значение;

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

{/codecitation}

Процедуры добавления

{codecitation style="brush: xml;"}

Формат(ТвоеЧисло,"ЧЦ=5; ЧДЦ=0; ЧВН=");

{/codecitation}

{codecitation style="brush: xml;"}

Right( "0000" + String(Format(Number, "NG=0")), 5);

{/codecitation}

{codecitation style="brush: xml;"}

Формат(ТвоеЧисло,"ЧЦ=5; ЧДЦ=0; ЧГ=0; ЧВН=");

{/codecitation}

{codecitation style="brush: xml;"}

ИсходноеЧисло = 15;
Результат = Формат(ИсходноеЧисло, "ЧЦ=5; ЧВН=; ЧГ=0");
//Результат = 00015   

{/codecitation}