党员缴纳党费的计算方法
一、在职党员
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，zzcg** 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