主题：如何计算时间段

Dim y,m,d As Integer
Dim dt1 As Date = #2/28/2012#
Dim dt2 As Date = #2/22/2016#
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")

此主题相关图片如下：库龄.png

在入库表里，如何根据日期列和TODAY,计算库龄？

我写不出来

Select Case e.DataCol.name
    Case  "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("库龄") = Nothing
                   Else
            Dim  y,m,d As Integer
            DateYMD(e.DataRow("日期"),Date.Today,y,m,d)
             e.DataRow("库龄")=  y & "年" & m & "月" & d & "日"

      End If
 End Select

 

我还是保存不了，不知哪儿有问题了。

哈哈~~ 谢谢！一开始是我没设置好，现在好用了。多谢各位老师！