Converter números minúsculos em maiúsculos em asp
função int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=matriz(zero, um, dois, três, quatro, cinco, seis, sete, oito, nove)
y=array(,十,百,千)
x = Matriz (, milhão, bilhão, trilhão)
strlen=len(n)
str1=n
para i= 1 para strlen
j=meio(str1,i,1)
retval=retval&z(j)
se j>0 então retval=retval&y((strlen-i) mod 4)'se for maior que zero, adicione caracteres decimais
retval=replace(retval,z(0)&z(0),z(0))' Existem dois zeros e resta apenas um.
if ((strlen-i) mod 4)=0 e right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'Adicione a cada quatro dígitos para avançar
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'Remova o último zero
próximo
int2chn = retval
função final