ASP写的判断Money各个位值的函数_asp
最近在公司做一个帐务报销系统。
需要把一个MONEY值的个位十位百位千位还有角啊分啊的单独取出来生成表格。
于是写了一个得到此值的 Function ,放到这里共享。如果你看到有写得不妥的地方,请给我来 killhand007@163.com 指正交流。
Function Moneynm(n,m)
checkPoint = InstrRev(n,".")
If n>9999.99 Then
Response.write"数据超过限制,请确定您的报销金额在9999.99元以内!"
Else
If (checkPoint <> 0) Then
http://www.gaodaima.com/66311.htmlasp写的判断Money各个位值的函数_asp
leftNum = Mid(n,1,checkPoint-1)
rightNum = Mid(n,checkPoint+1,Len(n))
Else
leftNum = n
End If
gw = Mid(leftNum,Len(leftNum),Len(leftNum))
sw = 0
bw = 0
qw = 0
jw = 0
fw = 0
If Len(leftNum)>1 Then
sw = Mid(leftNum,Len(leftNum)-1,1)
End If
If Len(leftNum)>2 Then
bw = Mid(leftNum,Len(leftNum)-2,1)
End If
If Len(leftNum)>3 Then
qw = Mid(leftNum,Len(leftNum)-3,1)
End If
If Len(rightNum)>0 Then
jw = Mid(rightNum,1,1)
End If
If Len(rightNum)>1 Then
fw = Mid(rightNum,2,1)
End If
Select case m
case "gw"
Response.Write gw
case "sw"
Response.Write sw
case "bw"
Response.Write bw
case "qw"
Response.Write qw
case "jw"
Response.Write jw
case "fw"
Response.Write fw
End Select
End If
End Function
当然在此基础上你还可以得到万位十万位等。
希望对有需要的朋友有所帮助。
欢迎大家阅读《ASP写的判断Money各个位值的函数_asp》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码
原创文章,转载请注明: 转载自搞代码
本文链接地址: ASP写的判断Money各个位值的函数_asp

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~
发表评论