ASP写的判断Money各个位值的函数
来源： 编辑：duliying 更新日期：2008-5-27 16:18:15 浏览：168 次
最近在公司做一个帐务报销系统。
需要把一个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
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
I
需要把一个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
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
I
最新资源
资源推荐
资源排行
|
- 石家庄广维网络有限公司 版权所有 Copyright © 2005 All Rights Reserved
- 中国人才库所有招聘及个人信息、作品，未经公司书面授权不得转载，违者将承担法律责任！
冀 ICP备05000398号 优秀人才展示交流平台! |
|