Функция ЧислоПрописьюУзб(simv) Экспорт преобразует число, число с прописью.
Можно поместить в общую модуль, и обращаться к этой функции. Буквы к, х, у, г остались не измененным, то есть например число 40 пишется как «кирк» .
Функция ЧислоПрописьюУзб(simv) Экспорт
s1 = Новый массив(22);
s2 = Новый массив(12);
s4 = Новый массив(12);
s1[1] = "бир";
s1[2] = "икки";
s1[3] = "уч";
s1[4] = "турт";
s1[5] = "беш";
s1[6] = "олти";
s1[7] = "етти";
s1[8] = "саккиз";
s1[9] = "туккиз";
s1[10] = "ун";
s1[11]="ун бир";
s1[12]="ун икки";
s1[13]="ун уч";
s1[14]="ун турт";
s1[15]="ун беш";
s1[16]="ун олти";
s1[17]="ун етти";
s1[18]="ун саккиз";
s1[19]="ун туккиз";
s1[20]="йигирма";
s1[21]="";
s2[1] = "ун";
s2[2] = "йигирма";
s2[3] = "уттиз";
s2[4] = "кирк";
s2[5] = "эллик";
s2[6] = "олтмиш";
s2[7] = "етмиш";
s2[8] = "саксон";
s2[9] = "туксон";
s2[10] = "юз";
s2[11] = "";
s4[1] = "бир юз";
s4[2] = "икки юз";
s4[3] = "уч юз";
s4[4] = "турт юз";
s4[5] = "беш юз";
s4[6] = "олти юз";
s4[7] = "етти юз";
s4[8] = "саккиз юз";
s4[9] = "туккиз юз";
s4[10] = "минг";
s4[11] = "";
slova = "";
word = "";
ss0 = СтрЗаменить(simv,Символы.НПП,"");
ss1 = Цел(Число(ss0));
k = СтрДлина(ss1);
if k > 9 then
n = k-9;
mlrd = лев(ss1,n);
word=aniq(mlrd,s1,s2,s4);
slova=word+" миллиaрд";
mln=Сред(СокрЛП(ss1),n+1,3);
if Число(mln)=0 then
word="";
slova=slova+" "+word;
else
word = aniq(mln,s1,s2,s4);
slova=slova+" "+word+" миллион";
endif;
ming=Сред(СокрЛП(ss1),n+4,3);
if Число(ming)=0 then
word="";
slova=slova+" "+word;
else
word = aniq(ming,s1,s2,s4);
slova=slova+" "+word+" минг";
endif;
uz=Сред(СокрЛП(ss1),n+7,3);
if Число(uz)=0 then
word="";
slova=slova+" "+word+" сум";
else
word = aniq(uz,s1,s2,s4);
slova=slova+" "+word+" сум";
endif
else
if 6 n=k-6;
mln=Сред(СокрЛП(ss1),1,n);
word = aniq(mln,s1,s2,s4);
slova=СокрЛП(slova)+" "+word+" миллион";
ming=Сред(СокрЛП(ss1),n+1,3);
mm=0;
if Число(ming)=0 then
word="";
slova=slova+" "+word;
else
mm=1;
word = aniq(ming,s1,s2,s4);
slova=slova+" "+word+" минг";
endif;
uz=Сред(СокрЛП(ss1),n+4,3);
if Число(uz)=0 then
word="";
slova=slova+" "+word+" сум";
else
word = aniq(uz,s1,s2,s4);
slova=slova+" "+word+" сум";
endif;
else
if 3 n=k-3;
ming=Сред(СокрЛП(ss1),1,n);
if Число(ming)=0 then
word="";
else
word= aniq(ming,s1,s2,s4);
slova=СокрЛП(slova)+" "+word+" минг";
endif;
uz=Сред(СокрЛП(ss1),n+1,3);
if Число(uz)=0 then
word="";
slova=slova+" "+word+" сум";
else
word = aniq(uz,s1,s2,s4);
slova=slova+" "+word+" сум";
endif;
else
if k n=k-3;
uz=Сред(СокрЛП(ss1),1,k);
if Число(uz)=0 then
word="";
slova=slova+" "+word+" сум";
else
word = aniq(uz,s1,s2,s4);
slova=slova+" "+word+" сум";
endif;
endif;
endif;
endif;
endif;
monet=simv-цел(simv);
if monet>0 then
slova=СокрЛП(slova)+" "+Строка(monet*100)+" тийин.";
endif;
nn=СтрДлина(СокрЛП(slova));
fist_lit=" ";
fist_lit = Сред(СокрЛП(slova),1,1);
slova=ВРег(fist_lit)+Сред(СокрЛП(slova),2,nn-1);
return СокрЛП(slova);
КонецФункции
Функция aniq(numb,s1,s2,s4)
k_1 = СтрДлина(СокрЛП(numb));
if k_1=3 then
n_1=Сред(numb,1,1);
n_1_=Число(n_1);
if n_1_=0 then
n_1_=11;
endif;
n_2=Сред(numb,2,2);
n_2_=Число(n_2);
if n_2_>19 then
n_2=Сред(numb,2,1);
endif;
n_2_=Число(n_2);
if n_2_=0 then
n_2_=21;
endif;
n_3=Сред(numb,3,1);
n_3_=Число(n_3);
if n_3_=0 then
n_3_=21;
endif;
if СтрДлина(n_2) word=s4[n_1_]+" "+s2[n_2_]+" "+s1[n_3_];
else
word=s4[n_1_]+" "+s1[n_2_];
endif;
возврат word;
else
if k_1=2 then
n_2=Сред(numb,1,2);
n_2_=Число(n_2);
if n_2_>19 then
n_2=Сред(numb,1,1);
endif;
n_3=Сред(numb,2,1);
n_3_=Число(n_3);
n_2_=Число(n_2);
if n_2_=0 then
n_2_=11;
n2=11;
endif;
if n_3_=0 then
n_3_=21;
endif;
if СтрДлина(n_2) word=s2[n_2_]+" "+s1[n_3_];
else
word=s1[n_2_];
endif;
return word;
else
if k_1=1 then
n_3=Сред(numb,1,1);
n_3_=Число(n_3);
if n_3_=0 then
n_3_=11;
endif;
word=s1[n_3_];
return word;
endif;
endif;
КонецЕсли;
КонецФункции
