asp将文档中的数字转成大写

发布网友发布时间：2022-05-13 06:42

共1个回答

热心网友时间：2023-11-27 01:15

你要写一个函数才可以 <% function int2chn（n） dim i,j,k,strlen,retval,x,y,z,str z=array（"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"） y=array（"","拾","佰","仟"） x=Array（"","万","亿","万万亿"） strlen=len（n） str1=n for i= 1 to strlen j=mid（str1,i,1） retval=retval&z（j） if j>0 then retval=retval&y（（strlen-i） mod 4）'如果大于零，加入十进位字符 retval=replace（retval,z（0）&z（0），z（0））'出现两个零只留一个 if （（strlen-i） mod 4）=0 and right（retval,1）=z（0） then retval=left（retval,len（retval）-1）'每四位加入进阶 if （（strlen-i） mod 4）=0 then retval=retval&x（int（（strlen-i）/4））'把最后的零去掉 next int2chn=retval end function %>追问这个不行啊，这个只是把单纯的数字变成大写，我要求的是把文档中的数字变大写。