Asp converte números minúsculos em números maiúsculos
Devido aos requisitos do projeto, os números minúsculos devem ser convertidos em números maiúsculos. Espero que você possa aprender com isso.
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