从vb.net开始,这些项目将在3个月后到期

时间:2013-09-24 14:24:07

标签: vb.net vb.net-2010

我正在进行我的项目,我不知道从今天起3个月后即将到期的物品的代码。谁有人可以帮我这个?感谢

Function popCat()
    Call populateOnGrid(da, dset, _
      "Select * from tblItems where cdate(Expiry_Date)<>cdate('" & Date.Today.ToString("MM/dd/yyyy") & "') order by Category,Item_Name", "tblItems", dgExpiry)
    lblrecFnd.Text = totRec & " Records/s found"
    Call formatGrid()
    Return True
End Function 

2 个答案:

答案 0 :(得分:0)

尝试这样的事情:

cdate(Expiry_Date)=cdate('" & Date.Today.AddMonths(3).ToString("MM/dd/yyyy")

答案 1 :(得分:0)

如果需要,可以在SQL中执行:

Select * from tblItems where cdate(Expiry_Date) => DATEADD(month, 3, GETDATE())

这将为您提供3个月或更长时间内过期的所有物品。或者你只想要在三个月内完全的那些?