如何用代码计算工龄工资?

小城布衣

如题,望各位大侠指点迷津!不胜感激!

详细如下:

我公司自入职起算,每六个月加一次工龄工资,另外还有一个要求即是某员工若在入职当月的15日之前入职,则当月计为一个整月,若该员工在入职当月的15日以后入职则当月不计入工龄(白干十几天,呵呵)

想要实现的目的是:核算之日,输入当月月份,点击查询,即列出所有该月应该加工龄工资的员工名单等信息!

Thanks For Your Help!

一点通

思维:

1.先判断日期是否小于15日,是的话将月份加1,如2006-09-10,判断后改为2006-10-01

2.然后将年月相减,大于6就加工资

函数具体用法请参照如下贴

http://www.office-cn.net/forum.php?mod=viewthread&tid=33813&replyID=&skin=1

小城布衣

时间函数汇总的那个帖子,小弟收集了 ,谢谢大大栽培~!

不过好像大大没有完全领会我的意思

我公司是每半年加一次工龄工资,做满一年再加一次,再作满6个月再加依此类推最多的可以累计加9年

一开始小弟的思路和大大是一样的,但是代码出来以后,计算的时候会出现一些奇怪的问题

有的不该加的,加了,该加的却没加,而且窗体中之筛选出一条记录来

我的代码如下:

Private Sub Command15_Click()

On Error GoTo err_Command15_Click

'定义整型变量

Dim number1 As Integer

'定义字符型变量

Dim STemp As String

'定义数据集变量

Dim Rs As ADODB.Recordset

'为定义的数据集变量分配空间

Set Rs = New ADODB.Recordset

'为打开数据表"工资数据总表"字符变量赋值

STemp = "select * from 工资数据总表 "

'打开"工资数据总表"数据表

Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.MoveFirst

    For i = 1 To Rs.RecordCount

        If Val(Right(Format(Rs("rcsj"), "yyyymmdd"), 2)) <= 15 Then

           number1 = (Val((Mid(Format(Me![查询年月], "yyyymm"), 3, 2)) - Val(Mid(Format(Rs("rcsj"), "yyyymmdd"), 3, 2))) * 12 + (Val((Right(Format(Me![查询年月], "yyyymm"), 2)) + 1) - Val(Mid(Format(Rs("rcsj"), "yyyymmdd"), 5, 2)))) Mod 6

             If number1 = 0 Then

               '修改文本字段值

               Me![kh] = Rs("kh")

               Me![dep] = Rs("dep")

               Me![name] = Rs("name")

               Me![rcsj] = Rs("rcsj")

               Me![yeargz] = Rs("yeargz")

               Me![Text11] = 50

            Else

              Rs.MoveNext    '把记录指针移到下一条记录

            End If

        Else

           number1 = (Val((Mid(Format(Me![查询年月], "yyyymm"), 3, 2)) - Val(Mid(Format(Rs("rcsj"), "yyyymmdd"), 3, 2))) * 12 + Val((Right(Format(Me![查询年月], "yyyymm"), 2)) - Val(Mid(Format(Rs("rcsj"), "yyyymmdd"), 5, 2)))) Mod 6

              If number1 = 0 Then

               '修改文本字段值

               Me![kh] = Rs("kh")

               Me![dep] = Rs("dep")

               Me![name] = Rs("name")

               Me![rcsj] = Rs("rcsj")

               Me![yeargz] = Rs("yeargz")

               Me![Text11] = 50

<F