ASP 写的判断 Money 各个位值的函数

最新推荐文章于 2019-07-31 07:11:04 发布

原创最新推荐文章于 2019-07-31 07:11:04 发布 · 828 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function

asp技术文章专栏收录该内容

37 篇文章

订阅专栏

博客介绍了使用ASP编写的函数，用于将MONEY值的个位、十位、百位、千位以及角、分单独提取出来，并生成表格。函数会检查数据是否超过9999.99元的限制，若未超过则进行数位提取。

需要把一个MONEY值的个位十位百位千位还有角啊分啊的单独取出来生成表格。

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