通用缴税计算类

Author:水如烟

测试:

    Dim r As New LzmTW.Common.RatePayingClass

    '测试，不分层级
收入额: 1000000 起征点: 1600 应纳税所得额: 998400 速算扣除额: 15375 税率: 0.45 扣缴所得税: 433905 税后所得额: 566095

类:

''' -----------------------------------------------------------------------------
''' Project     : LzmTW.Common
''' Class     : Common.RatePayingClass
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' 计税类
''' </summary>
''' <remarks>
''' 计税信息，如不分层级，按 RatePayingClass.TaxArray = New Object() {100, 0.03}
''' 分层级，则按 RatePayingClass.TaxArray = New Object() {1600, 500, 0.05, 2000, 0.1, 5000, 0.15, 20000, 0.2, 40000, 0.25, 60000, 0.3, 80000, 0.35, 100000, 0.4, 0.45}赋值
''' </remarks>
''' <history>
'''     [lzmtw]    2005-10-29    Created
''' </history>
'''  -----------------------------------------------------------------------------