- 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=138101)
-- 发布时间：2019/7/22 23:28:00
-- [求助]缴费停止累计代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.rar |
老师好，当员工明细表的离职日期不为空,则工伤保险已缴、商业保险已缴、养老已缴、医疗保险已缴停止累计缴纳月数，求代码，谢谢！
-- 发布时间：2019/7/23 9:13:00
--
这个意思？
Select Case e.DataCol.Name
Case "养老保险日期"
If e.DataRow.IsNull("养老保险日期") Then
e.DataRow("养老已缴") = Nothing
Else
Dim y,m,d As Integer
Dim d2 As Date = Date.Today
If e.DataRow.IsNull("离职日期") = False Then
d2 = e.DataRow("离职日期")
End If
DateYMD(e.DataRow("养老保险日期"),d2,y,m,d)
e.DataRow("养老已缴") = y*12+m
End If
End Select
[此贴子已经被作者于2019/7/23 9:15:49编辑过]
-- 发布时间：2019/7/23 16:42:00
--
老师好，我的意思是：如果某个员工离职，那么工伤保险已缴、商业保险已缴、养老已缴、医疗保险已缴列停止累计计算缴纳月数。
-- 发布时间：2019/7/23 16:45:00
--
怎么样才算是停止累计？
-- 发布时间：2019/7/23 21:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:员工明细表.rar |
老师好，如附件word文档描述的。
-- 发布时间：2019/7/23 22:37:00
--
Select Case e.DataCol.Name
Case "养老保险日期","离职日期"
If e.DataRow.IsNull("养老保险日期") Then
e.DataRow("养老已缴") = Nothing
Else
Dim y,m,d As Integer
Dim d2 As Date = Date.Today
If e.DataRow.IsNull("离职日期") = False Then
d2 = e.DataRow("离职日期")
End If
DateYMD(e.DataRow("养老保险日期"),d2,y,m,d)
e.DataRow("养老已缴") = y*12+m
End If
End Select
其它几种什么已缴参考着做即可
-- 发布时间：2019/7/24 9:46:00
--
好的，谢谢老师！