iiatax函數(shù)word版(編輯修改稿)
2025-09-17 16:29 本頁面
【文章內容簡介】 ┇39。┇ isInverse 可 選 ， 是 否 需 要 反 算 dblNumber 對 應 的 稅 前 值 ┇39。┗ =========Version: , Updated Date: March 20,2022=========┛ False 39。定 義 為 非 易 失 性 函 數(shù)If dblNumber 0 Then IIATAX = VAL 39。計 稅 工 資 為 負 Exit FunctionEnd IfDim basium As Integer, i As IntegerDim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant, laowudeduct As VariantDim gongxin As Double, laowu As Double, nianjiang As Doubledownnum = Array(0, 1500, 4500, 9000, 35000, 55000, 80000) 39。定 義 累 進 區(qū) 間 下 限upnum = Array(1500, 4500, 9000, 35000, 55000, 80000, 10 ^ 10) 39。定 義 累 進 區(qū) 間 上 限r(nóng)atenum = Array(, , , , , , ) 39。定 義 累 進 稅 率deductnum = Array(0, 105, 555, 1005, 2755, 5505, 13505) 39。定 義 累 進 速 算 扣 除 數(shù)Select Case intType Case 0 basium = 4800 39。外 籍 公 民 個 稅 起 征 點 Case 1 basium = 3500 39。中 國 公 民 個 稅 起 征 點 ， 2022 年 9 月 1 日 起 執(zhí) 行 Case 2 39。勞 務 所 得 稅 downnum = Array(0, 4000, 20220, 50000) upnum = Array(4000, 20220, 50000, 10 ^ 10) ratenum = Array(, , , ) deductnum = Array(0, 0, 2022, 7000) laowudeduct = Array(800, dblNumber * , dblNumber * , dblNumber * ) For i = 0 To UBound(downnum) If dblNumber downnum(i) And dblNumber = upnum(i) Then laowu = (dblNumber laowudeduct(i)) * ratenum(i) deductnum(i) Exit For End If Next i Case Else IIATAX = N/A 39。參 數(shù) 不 能 識 別
電大資料相關推薦
鄂ICP備17016276號-1