以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]工龄计算代码?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118199)
--  作者：老鼠
--  发布时间：2018/4/26 21:44:00
--  [求助]工龄计算代码?
求表Data ColChabged事件代码?
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：有点甜
--  发布时间：2018/4/26 21:46:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2647.htm

 
--  作者：老鼠
--  发布时间：2018/4/26 21:55:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：捕获333.jpg
图片点击可在新窗口打开查看
不知道如何修改?是列属性有问题吗?
--  作者：有点甜
--  发布时间：2018/4/26 22:00:00
--  
Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = y & "年" & m & "月"
        End If
End Select
--  作者：老鼠
--  发布时间：2018/4/26 22:06:00
--  

谢谢!可是我还想让月份能是两位数,又要如何修改代码呢?

 就是说格式:yy年mm月

[此贴子已经被作者于2018/4/26 22:06:43编辑过]
--  作者：有点甜
--  发布时间：2018/4/26 22:31:00
--  
Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
        End If
End Select