浮点数计算器_Excel VBA 编程开发应用实例——用VBA编写到手净工资计算器

部分将用 Excel VBA 编写一个实用的工资计算器，通过税前工资和五险两金缴纳比例信息，可以一键计算出所需要缴纳的五险两金钱数，需要缴纳的个人所得税钱数以及最终到手净工资是多少。想要此工具的知友可以关注我的公众号 留言写下邮箱，我会统一发送给您

基本工资知识介绍

到手净工资 = 税前工资-五险两金扣除金额-个人所得税扣除金额。

五险两金分别是：养老保险，失业保险，生育保险，工伤保险 医疗保险，住房公积金，企业年金。

五险两金的缴纳比例，全国各地不同，但有个基本标准需要遵守，其中五险一金的缴纳比例如下图所示：

企业年金是一种补充性养老金制度，是指企业及其职工在依法参加基本养老保险的基础上，自愿建立的补充养老保险制度。根据《职业年金办法》：职业年金=单位缴纳+个人缴费。其中缴纳比例为：本单位工资总额的8%；本人缴费工资的4%，由单位代扣。

新的个人所得税从2019年1月1日开始执行，个税起征点为5000元，即扣除五险两金后工资不足5000元的不征收个人所得税。个人所得税分为七个等级，每个等级和税率如下图所示：

速算扣除数的计算公式是：

本级速算扣除额=上一级最高应纳税所得额×（本级税率-上一级税率）+上一级速算扣除数。

标注：由于每人情况不同，此不考虑专项附加扣除金额，如需要，可以在计算后自行加入此内容。

用VBA编写工资计算器

根据上述知识，我们首先完成用户交互界面的设置，应包括所有用户需要自行填写的部分和结果输出部分。其中用户填写部分可以根据真实情况自行填写数值，设计出的界面如下图所示：

然后进行VBA编程，主要分为三大部分，第一部分是变量声明，具体代码如下图所示：这里要主要的是，变量类型声明为单精度浮点数，而不是整数，这是因为在数据计算过程中，肯定会出现小数的计算。

第二部分是读取用户填写的数据部分，具体代码如下图所示：

第三部分是逻辑计算部分，具体代码如下：

其中注意的是：个人所得税是通过调用函数（PersonnalTaxCal（））来实现的，此函数的定义如下：

此函数的编写过程中，注意税率都是用3.0或者10.0来计算的，而不是直接用3或者是10来结算，这样做的目的是防止计算结果隐式转换成整数从而造成数据丢失或溢出。

一键计算净工资

填写好用户交互界面的相关数据，点击“一键计算”按键，便可以直接计算出需要缴纳的五险两金钱数，需要缴纳的个人所得税钱数和到手净工资为多少，非常实用和方便。

想要此工具的请在公众号留下您的邮箱，我会统一发送您