Convertir números en minúsculas a mayúsculas en asp
función int2chn(n)
tenue i,j,k,strlen,retval,x,y,z,str
z=matriz(cero, uno, dos, tres, cuatro, cinco, seis, siete, ocho, nueve)
y=matriz(,十,百,千)
x=matriz(,millones,billones,billones)
strlen=len(n)
cadena1=n
para i= 1 para strlen
j=medio(cadena1,i,1)
valorret=valorret&z(j)
si j>0 entonces retval=retval&y((strlen-i) mod 4)'si es mayor que cero, agregue caracteres decimales
retval=replace(retval,z(0)&z(0),z(0))' Hay dos ceros y solo queda uno.
si ((strlen-i) mod 4)=0 y right(retval,1)=z(0) entonces retval=left(retval,len(retval)-1)'Suma cada cuatro dígitos para avanzar
if ((strlen-i) mod 4)=0 entonces retval=retval&x(int((strlen-i)/4))'Eliminar el último cero
próximo
int2chn=retval
función final