以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何计算时间段  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52663)

--  作者:悦颜
--  发布时间:2014/6/19 22:55:00
--  如何计算时间段

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,计算库龄?


--  作者:悦颜
--  发布时间:2014/6/19 22:56:00
--  
我写不出来
--  作者:ahbzczy
--  发布时间:2014/6/19 22:59:00
--  
http://www.foxtable.com/help/topics/2647.htm
--  作者:悦颜
--  发布时间:2014/6/19 23:23:00
--  

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

 

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


--  作者:Bin
--  发布时间:2014/6/20 8:31:00
--  
保存不了? 你用的是表达式列吧?
--  作者:有点甜
--  发布时间:2014/6/20 9:15:00
--  

 不明白你的意思,用例子说明问题。

 


--  作者:悦颜
--  发布时间:2014/6/21 18:46:00
--  
哈哈~~ 谢谢!一开始是我没设置好,现在好用了。多谢各位老师!图片点击可在新窗口打开查看