ASP 写的判断 Money 各个位值的函数
2018-09-06 11:36
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
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 各个位值的函数
文章链接：http://soscw.com/index.php/essay/9535.html