|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全年夜写|函数|泉币|精髓|转换<%
FunctionChangeNumToDx(SourceNum)
DimString1以下界说
DimString2以下界说
DimString3从原SourceNum值中掏出的值
DimI轮回变量
DimJSourceNum的值乘以100的字符串长度
DimCh1数字的汉语读法
DimCh2数字位的汉字读法
DimnZero用来盘算一连的零值是几个
String1="零壹贰叁肆伍陆柒捌玖"
String2="万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero=0
ChangeNumToDx=""
IfNotIsNumeric(SourceNum)Then
SourceNum="0"
EndIf
IfInStr(1,CStr(SourceNum*100),".")0Then
err.Raise5000,,"此函数(AtoC())只能转换小数点后有两位之内的数!"
EndIf
J=Len(CStr(SourceNum*100))
String2=Right(String2,J)掏出对应位数的STRING2的值
ForI=1ToJ
String3=Mid(SourceNum*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
&n</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|