แปลงตัวเลขตัวพิมพ์เล็กเป็นตัวพิมพ์ใหญ่ใน asp
ฟังก์ชั่น int2chn (n)
หรี่ i,j,k,strlen,retval,x,y,z,str
z=array(ศูนย์ หนึ่ง สอง สาม สี่ ห้า หก เจ็ด แปด เก้า)
y=array(,十,百,千)
x=อาร์เรย์(,ล้าน,พันล้าน,ล้านล้าน)
strlen=เลน(n)
str1=n
สำหรับ i= 1 ถึง strlen
เจ=กลาง(str1,i,1)
retval=retval&z(เจ)
ถ้า j>0 แล้ว retval=retval&y((strlen-i) mod 4)' ถ้ามากกว่าศูนย์ ให้เพิ่มอักขระทศนิยม
retval=replace(retval,z(0)&z(0),z(0))' มีศูนย์อยู่สองตัวและเหลือเพียงตัวเดียวเท่านั้น
if ((strlen-i) mod 4)=0 และ right(retval,1)=z(0) ดังนั้น retval=left(retval,len(retval)-1)'Add ทุก ๆ สี่หลักเพื่อเลื่อนไปข้างหน้า
if ((strlen-i) mod 4)=0 ดังนั้น retval=retval&x(int((strlen-i)/4))'ลบศูนย์ตัวสุดท้าย
ต่อไป
int2chn=retval
ฟังก์ชั่นสิ้นสุด