|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!<%
dima要转换成年夜写的金额
dimatoc转换以后的值
DimString1以下界说
DimString2以下界说
DimString3从原A值中掏出的值
DimI轮回变量
DimJA的值乘以100的字符串长度
DimCh1数字的汉语读法
DimCh2数字位的汉字读法
DimnZero用来盘算一连的零值是几个
String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero=0
IfInStr(1,CStr(a*100),".")0Then
err.Raise5000,,"此函数(AtoC())只能转换小数点后有两位之内的数!"
EndIf
J=Len(CStr(a*100))
String2=Right(String2,J)掏出对应位数的STRING2的值
ForI=1ToJ
String3=Mid(a*100,I,1)掏出需转换的某一名的值
IfI(J-3)+1AndI(J-7)+1AndI(J-11)+1AndI(J-15)+1Then
IfString3=0Then
Ch1=""
Ch2=""
nZero=nZero+1
ElseIfString30AndnZero0Then
Ch1="零"&Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
Else
Ch1=Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
EndIf
Else该位是万亿,亿,万,元位等关头位
IfString30AndnZero0Then
Ch1="零"&Mid(String1,clng(String3)+1,1)
Ch2=Mid(String2,I,1)
nZero=0
ElseIfString30AndnZero=0Then
Ch1=Mid(String1,clng(String3)+1,1)
&n</p>ASP脚本是采用明文(plaintext)方式来编写的。 |
|