ASP で小文字の数値を大文字に変換する
関数 int2chn(n)
薄暗い i,j,k,strlen,retval,x,y,z,str
z=配列(0、1、2、3、4、5、6、7、8、9)
y=array(,十,百,千)
x=Array(,100万,10億,1兆)
strlen=len(n)
str1=n
i= 1 から strlen まで
j=mid(str1,i,1)
retval=retval&z(j)
j>0 の場合、retval=retval&y((strlen-i) mod 4)'0 より大きい場合、小数点を追加します
retval=replace(retval,z(0)&z(0),z(0))' ゼロが 2 つあり、残りは 1 つだけです。
if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)' 4 桁ごとに加算して進みます
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'最後のゼロを削除します
次
int2chn=retval
終了関数