以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]计算当前日期与指定列日期相差的月份数的函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15909)
--  作者：rociel1123
--  发布时间：2012/1/17 11:46:00
--  [求助]计算当前日期与指定列日期相差的月份数的函数

之前曾求教过一个计算年差值的代码，现需要一个计算月份的，请高手不吝赐教，不胜感激。

 

以下是上次狐爸指点的代码：

 

If e.DataRow.IsNull("入库时间") Then
    e.DataRow("已用年限") = Nothing
Else
    e.DataRow("已用年限") = Date.Today.Year - e.DataRow("入库时间").Year
End If

If e.DataCol.Name = "入库时间" Then
    e.DataTable.DataCols("已用年限").Recalc(e.DataRow)
End If
--  作者：狐狸爸爸
--  发布时间：2012/1/17 11:51:00
--  
e.DataRow("已用年限") = (Date.Today.Year - e.DataRow("入库时间").Year) * 12 + Date.Today.Month - e.DataRow("入库时间").Month
--  作者：rociel1123
--  发布时间：2012/1/17 12:10:00
--  
多谢楼上