Преобразование строчных чисел в прописные в asp
функция int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=массив(ноль, один, два, три, четыре, пять, шесть, семь, восемь, девять)
y=массив(,十,百,千)
x=Array(,миллион,миллиард,триллион)
стрлен = лен (п)
стр1=n
для i= 1 в strlen
j=mid(str1,i,1)
ретвал=ретвал&z(j)
если j>0, то retval=retval&y((strlen-i) mod 4)'если больше нуля, добавить десятичные символы
retval=replace(retval,z(0)&z(0),z(0))' Есть два нуля и остался только один.
if ((strlen-i) mod 4)=0 и right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'Добавляйте каждые четыре цифры для продвижения вперед
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'Удалить последний ноль
следующий
int2chn=ретвал
конечная функция