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
وظيفة النهاية