主题：[求助]关于这个时间相减的问题！

'''
Select Case e.DataCol.name
    Case "入库时间","出库时间"
        If CurrentTable.current("出库时间") < CurrentTable.current("入库时间") Then
            MessageBox.show("出库时间小于入库时间，请对比入库与出库时间！")
            CurrentTable.current("闲置时间") = Nothing
        Else
            If CurrentTable.current.isnull("出库时间") = True Then
                CurrentTable.current("闲置时间") = (Date.today.year - CurrentTable.current("入库时间").year)*12 + (Date.today.month - CurrentTable.current("入库时间").month)
            Else
                CurrentTable.current("闲置时间") = (CurrentTable.current("出库时间").year  - CurrentTable.current("入库时间").year)*12 + CurrentTable.current("出库时间").month  - CurrentTable.current("入库时间").month
            End If
        End If
End Select

红色部分 有什么好一点的方法嘛？