ZBYACCESS 发表于：2008-03-01 11:14:03
我遇到一个问题：求教师表中的职务补贴。
职务补贴根据教师表中的两个字段确定，一个是工作年限，分10年、20年、30年、30年以上四个阶段；一个是职称，分为小二、小一或中二、小高或中一、中高四个阶段，每个字段上一个档次，职务补贴增加4元，怎么编一个函数，让职务补贴这一字段自动生成。
我自己已经做出来了，现贴出来，与大家共享：
Public Function jishuanbutie(nianxian As String, zhicheng As String) As Integer
Dim intnianxian, intzhicheng, sum, intbt As Integer
If nianxian < 10 Then '年限少于10年
intnianxian = 0
ElseIf nianxian < 20 Then '年限少于20年大于10
intnianxian = 1
ElseIf nianxian < 30 Then '年限少于30年大于20
intnianxian = 2
ElseIf nianxian > 30 Then '年限大于30年
intnianxian = 3
End If
Select Case zhicheng
Case "小二"
intzhicheng = 0
Case "小一"
intzhicheng = 1
Case "小高"
intzhicheng = 2
Case "中二"
intzhicheng = 1
Case "中一"
intzhicheng = 2
Case "中高"
intzhicheng = 3
End Select
sum = intnianxian + intzhicheng
intbt = 47 + 4 * sum '最低档为47元
jishuanbutie = intbt
End Function
做得怎么样，望方家指教。
设计职务补贴的表，保存各档次的金额，直接通过查询来完成更为便捷，以后调整也不需更改代码；同样工龄补贴也可参照设计
总记录：3篇 页次：1/1 9 1 :
