Ubah angka huruf kecil menjadi huruf besar di asp
fungsi int2chn(n)
redupkan i,j,k,strlen,retval,x,y,z,str
z=array(nol, satu, dua, tiga, empat, lima, enam, tujuh, delapan, sembilan)
y=array(,十,百,千)
x=Array(,juta,miliar,triliun)
strlen=len(n)
str1=n
untuk i= 1 untuk strlen
j=pertengahan(str1,i,1)
retval=retval&z(j)
jika j>0 maka retval=retval&y((strlen-i) mod 4)'jika lebih besar dari nol, tambahkan karakter desimal
retval=replace(retval,z(0)&z(0),z(0))' Ada dua angka nol dan hanya tersisa satu.
if ((strlen-i) mod 4)=0 dan right(retval,1)=z(0) kemudian retval=left(retval,len(retval)-1)'Tambahkan setiap empat digit untuk maju
if ((strlen-i) mod 4)=0 maka retval=retval&x(int((strlen-i)/4))'Hapus angka nol terakhir
Berikutnya
int2chn=pengembalian
fungsi akhir