- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于工龄的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45342)
-- 发布时间：2014/1/22 17:00:00
-- [求助]关于工龄的问题
菜鸟新手，最近自己在做一个人事系统。其中就有工龄的问题，就是有一列入职时间，一列离职时间，还有就是工龄。就是通过输入入职时间和离职时间可以自动输出工龄。如果按帮助文件里写的，只能准确自动写出在职的员工工龄，但是如果离职的员工，那么工龄就会出现问题。求助编码该怎么写。
-- 发布时间：2014/1/22 17:03:00
--
离职的员工工龄怎么会出现问题? 你把当前时间改为离职时间不就完了吗?
实在不会就上例子吧
-- 发布时间：2014/1/22 17:13:00
--
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
-- 发布时间：2014/1/22 17:15:00
--
那个我们是企事业单位，所谓的离职包括退休，内退。
-- 发布时间：2014/1/22 17:16:00
--
谢谢狐狸爸爸。又学习了
