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