newasp中main类(44)

        Percents = CCur(arrChinaeBank(2) / 100)

        If Percents = 0 Then
            ReadPayMoney = CCur(money)
        Else
            If CBool(Reduce) = True Then
                valPercent = Round(CCur(money) / (1 + 1 * Percents), 2)
                ReadPayMoney = CCur(valPercent)
            Else
                valPercent = Round(CCur(money) * Percents, 2)
                ReadPayMoney = CCur(money + valPercent)
            End If
        End If
    End Function
    '=============================================================
    '函数名：RebateMoney
    '作  用：读取打折的后金钱
    '参  数：money   ----实际金钱
    '        Discount   ----折扣
    '=============================================================
    Public Function RebateMoney(ByVal money, ByVal Discount)
        On Error Resume Next
        Dim Rebate

        money = CheckNumeric(money)
        Discount = CheckNumeric(Discount)
        If Discount > 0 And Discount < 10 Then
            Rebate = Round(money * (Discount / 10), 2)
            RebateMoney = CCur(Rebate)
        Else
            RebateMoney = CCur(money)
        End If
    End Function