以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计算月数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102926)

--  作者:kaituozhe
--  发布时间:2017/6/27 18:19:00
--  计算月数
希望用以下代码计算月数,提示错误是什么原因?
Dim y,m,d As Integer
Select Case e.DataCol.name
    Case "计算月数_开始日期","计算月数_截止日期"
        DateYMD("#"& e.DataRow("计算月数_开始日期") &"#","#"& e.DataRow("计算月数_截止日期") & "#",m)
        e.DataRow("计算月数_月数") = m
End Select

--  作者:有点色
--  发布时间:2017/6/27 18:32:00
--  
DateYMD(e.DataRow("计算月数_开始日期"), e.DataRow("计算月数_截止日期"),y,m,d)