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
设为主页
收藏本站
相关文章: