党员缴纳党费的计算方法

　　一、在职党员

　　1、参公（含工人党员）：

　　基数=职务（岗位）工资+级别工资（工人为技术等级工资）+工作性津贴+生活性补贴-公积金（2个）-个人所得税（2个）-定数（厅级320，处级260，科级210，科级以下150）

　　2、事业编教研人员：

　　基数=技术等级工资+津贴+工作补贴+省岗位津贴+职务补贴+地方补贴+驻济补贴-公积金（2个）-所得税（2个）

　　若基数<=3000 党费=基数*0.5%

　　若3000<基数<=5000 党费=基数*1%

　　若5000<基数<=10000 党费=基数*1.5%

　　若基数>10000 党费=基数*2%

　　二、离退休党员

　　1、参公（含工人党员）：

　　基数=基本离退休退职费+增发离退休退职费+离退休补贴

　　2、事业编教研人员：

　　基数=基本离退休退职费+增发离退休退职费+离退工作补贴+省生活补贴+（原）职务补贴+离退地方补贴+离退驻济补贴+生活补贴

　　若基数<=5000 党费=基数*0.5%

　　若基数>5000 党费=基数*1%

　　三、党费取值

　　党费算出后的数额按照四舍五入的原则取整进行收缴。

　　各党支部应于每月或每年的3、6、9、12月将收到的党费交机关党委。

　　Dim base as single

　　Dim dues as integer

　　base = Val(a.职务工资) + val(a.级别工资) + val(a.工作性津贴) + Val( a.生活性补贴) - Val( a.公积金1 ) - Val( a.公积金2 ) - Val( a.个人所得税1 ) - Val( a.个人所得税2)

　　if b.行政级别 = “科级以下” then

　　 base = base-150

　　elseif b.行政级别 = “科级” then

　　 base = base-210

　　elseif b.行政级别 = “处级” then

　　 base = base-260

　　elseif b.行政级别 = “厅级” then

　　 base = base-320

　　if base <= 3000 then

　　 dues = int（base*0.005 + 0.5）

　　elseif 3000< base <=5000 then

　　 dues = int( base*0.01 + 0.5)

　　elseif 5000< base <=10000 then

　　 dues = int( base*0.015 + 0.5)

　　elseif base >10000 then

　　 dues = int( base*0.02 + 0.5)

　　select a.* from zzcgdf a，zzcgxx b , zzcggz c where a.编号 = b.编号 and b.编号 = c.编号 order by a.编号

　　数据库连接：

　　 Dim conn As New ADODB.Connection

　　 Dim connectionstring As String

　　 connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "D:\党费收缴系统\数据库\Data.mdb;persist security info =false;Jet OLEDB:Database Password=" '连接数据库

　　 conn.Open connectionstring

　　 Dim sql As String

　　 Dim rs As New ADODB.Recordset

　　 Dim base As Single

　　 Dim dues As Integer

　　sql = "select * from zzcgdf order by 编号"

　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic

　　With Adodc3.Recordset

　　'Adodc3.Recordset.MoveFirst

　　'Do While Not Adodc3.Recordset.EOF

　　 'rs.EditMode

　　rs.AddNew

　　rs.Fields("编号").Value = Adodc3.Recordset.Fields("编号").Value

　　rs.Fields("月份").Value = Adodc3.Recordset.Fields("发放日期").Value

　　 'With Adodc2.Recordset