主题：[求助]请问大家该如何计算过了多少天呢？

我想计算一下一个订单从发货日开始到现在过去了多少天该怎样写表达式呢？

DataColChanged事件

 

Select Case e.DataCol.name
    Case "发货日期"
        If e.DataRow.IsNull("发货日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("发货日期"))
            e.DataRow("天数") = tp.TotalDays
        End If
End Select

 

AfterOpenProject事件

 

DataTables("员工").DataCols("发货日期").RaiseDataColChanged()