以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  编译错误:未声明名称“DateYMD”怎么修改代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24794)

--  作者:ramen
--  发布时间:2012/10/23 15:11:00
--  编译错误:未声明名称“DateYMD”怎么修改代码
不知道为什么,我在教程那里复制过去的代码,用来计算工龄的,输入之后系统弹出窗口:编译错误:未声明名称“DateYMD”
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
            DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d)
            e.DataRow("工龄_年") = y
            e.DataRow("工龄_月") = m
            e.DataRow("工龄_日") = d
        End If

End
 Select



--  作者:lihe60
--  发布时间:2012/10/23 15:24:00
--  
我没有提示的,把你的文件传上来。
--  作者:ramen
--  发布时间:2012/10/23 15:33:00
--  
麻烦您看一下
--  作者:lihe60
--  发布时间:2012/10/23 15:38:00
--  
没有文件,如何看?
--  作者:狐狸爸爸
--  发布时间:2012/10/23 15:41:00
--  
你要升级到最新版本,DateYMD是新加入的函数,老版本没有的
--  作者:ramen
--  发布时间:2012/10/23 15:45:00
--  
这样啊,那我在主页重新下载,再安装,可以吗?
--  作者:狐狸爸爸
--  发布时间:2012/10/23 15:51:00
--  
可以的
--  作者:ramen
--  发布时间:2012/10/23 16:49:00
--  
谢谢!