以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  条件判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24483)

--  作者：lfxxdt --  发布时间：2012/10/15 15:20:00 --  条件判断 我做了一张{员工档案表}，里面有合同签订日期和合同是否到期（我司合同有效期为4年），我想合同是否到期由系统日期-合同订日期进行判断确定，应该如何编号代码。

--  作者：lfxxdt --  发布时间：2012/10/15 16:04:00 --   谢谢

--  作者：lin_hailun --  发布时间：2012/10/15 16:14:00 --   具体就这样写代码  For Each dr As DataRow In DataTables("表").DataRows     If dr.IsNull("日期") = False Then         Dim rz As Date = dr("日期")         Dim ts As TimeSpan = Date.Today - rz         dr("第四列") = ts.TotalDays \\ 365.2422 >= 4     End If Next