主题：[求助]计算当前日期与指定列日期相差的月份数的函数

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

 

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

 

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

e.DataRow("已用年限") = (Date.Today.Year - e.DataRow("入库时间").Year) * 12 + Date.Today.Month - e.DataRow("入库时间").Month

多谢楼上