Konvertieren Sie Kleinbuchstaben in ASP in Großbuchstaben
Funktion int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=Array(null, eins, zwei, drei, vier, fünf, sechs, sieben, acht, neun)
y=array(,十,百,千)
x=Array(,Millionen,Milliarden,Billionen)
strlen=len(n)
str1=n
für i= 1 bis strlen
j=mid(str1,i,1)
retval=retval&z(j)
wenn j>0 dann retval=retval&y((strlen-i) mod 4)'wenn größer als Null, Dezimalzeichen hinzufügen
retval=replace(retval,z(0)&z(0),z(0))' Es gibt zwei Nullen und nur eine übrig.
if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'Füge alle vier Ziffern hinzu, um voranzukommen
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'Entferne die letzte Null
nächste
int2chn=retval
Endfunktion