主题：[求助]关于工龄的问题

菜鸟新手，最近自己在做一个人事系统。其中就有工龄的问题，就是有一列入职时间，一列离职时间，还有就是工龄。就是通过输入入职时间和离职时间可以自动输出工龄。如果按帮助文件里写的，只能准确自动写出在职的员工工龄，但是如果离职的员工，那么工龄就会出现问题。求助编码该怎么写。

离职的员工工龄怎么会出现问题? 你把当前时间改为离职时间不就完了吗?

Select Case e.DataCol.name
    Case  "入职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("工龄_年") = Nothing
            e.DataRow("工龄_月") = Nothing
            e.DataRow("工龄_日") = Nothing
        Else
            Dim  y,m,d As Integer
            If e.DataRow("状态") = "离职" Then
                DateYMD(e.DataRow("入职日期"),e.DataRow("离职时间"),y,m,d)
            Else
                DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d)
            End If
             e.DataRow("工龄_年") = y
            e.DataRow("工龄_月") = m
            e.DataRow("工龄_日") = d
        End If
 End Select

那个我们是企事业单位，所谓的离职包括退休，内退。

谢谢狐狸爸爸。又学习了