تحويل الأرقام الصغيرة إلى الأحرف الكبيرة في asp
الدالة int2chn(n)
خافت i,j,k,strlen,retval,x,y,z,str
z=array(صفر، واحد، اثنان، ثلاثة، أربعة، خمسة، ستة، سبعة، ثمانية، تسعة)
ص = صفيف (، 十، 百، 千)
س = صفيف (، مليون، مليار، تريليون)
سترلين = لين (ن)
str1=n
لأني = 1 إلى سترلين
ي = منتصف (str1، ط، 1)
retval=retval&z(ي)
إذا j>0 ثم retval=retval&y((strlen-i) mod 4)'إذا كان أكبر من الصفر، أضف أحرفًا عشرية
retval=replace(retval,z(0)&z(0),z(0))' هناك صفران ولم يتبق سوى واحد.
إذا ((strlen-i) mod 4)=0 و right(retval,1)=z(0) ثم retval=left(retval,len(retval)-1)'أضف كل أربعة أرقام للتقدم
إذا ((strlen-i) mod 4)=0 ثم retval=retval&x(int((strlen-i)/4))'قم بإزالة الصفر الأخير
التالي
int2chn=retval
وظيفة النهاية