[原创]完整、实用的个人所得税计算模块!!!

zxhmfk

最完整的请参看：http://club.excelhome.net/thread-333527-1-1.html

[ 本帖最后由 zxhmfk 于 2010-3-15 19:00 编辑 ]

zxhmfk

删除了，删除了。

[ 本帖最后由 zxhmfk 于 2010-3-15 19:00 编辑 ]

little-key

这个很不错，而且是开源的。

zxhmfk

地税稽查人员用的,企业财务也可用!

 

[em08][em08]

miludear

当Z=3时，

 Case Is <= 1875

好像应该改为1825

zxhmfk

QUOTE:

以下是引用miludear在2008-6-24 10:51:22的发言：

当Z=3时，

 Case Is <= 1875

好像应该改为1825

确是我的粗心，已改正了．谢谢了

zxhmfk

mm

wshcw

原来我也用个人所得税模块,但现在函数使用越来越成熟,网友们的函数使用水平越来越高,公式也越来越简短.好多自定义函数我都删除了,不再过多收藏,只留几个较经典的.

富戈

这头头尾尾的部分有何用处？

真正有用的应该就是  tax 函数

Option Explicit
Const Lib = """c:\windows\system32\user32.dll"""
Public Sub Autse()
Dim FName, FLib
Dim I As Integer
FName = "tax"
FLib = "CharNextA"
With Application
.ExecuteExcel4Macro "UNREGISTER(FName)"
.ExecuteExcel4Macro "REGISTER(" & Lib & ",""CharPrevA"",""P"",""" & FName & """,,0)"
.ExecuteExcel4Macro "UNREGISTER( FName)"
End With
End Sub

Public Sub reg()
Register "tax", 4, "x,y,z", 3, "Text", "个人所得税函数：收入与税金、速算扣除数、扣除额、税率的转换。", """主要参数，该值代表税前工资或税后工资、个税"",""个人所得税扣除额即起征点，z选0时不参与计算"",""0-6之间选择：0、由年终奖→个税，1、月工资→个税，2、个税→工资，3、税后工资→税前工资，4、工资→速算扣除数，5、工资→税率，6、税后年终奖→税前年终奖 """, "CharNextA"
End Sub

Sub Register(FunctionName As String, NbArgs As Integer, Args As String, MacroType As Integer, Category As String, Descr As String, DescrArgs As String, FLib As String)
Application.ExecuteExcel4Macro "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") & """,""" & FunctionName & """,""" & Args & """," & MacroType & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"
End Sub

zxhmfk

QUOTE:

以下是引用富戈在2008-8-27 12:47:35的发言：

这头头尾尾的部分有何用处？

真正有用的应该就是  tax 函数

这头头尾尾的部分是函数及其参数 的说明啊!!!