以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么获取有效日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114215)
--  作者：yjf123
--  发布时间：2018/1/31 20:46:00
--  怎么获取有效日期

怎么获取有效日期，比如 有日期数据表

2018-01-01

2018-01-10

2018-01-20

2018-01-28

 

如果当前日期为 2018-01-15，则获取 2018-01-10的数据

如果当前日期为 2018-01-21，则获取 2018-01-20的数据

怎么获取呢？
--  作者：有点甜
--  发布时间：2018/1/31 20:50:00
--  
Dim fdr As Datarow = Datatables("表A").find("日期 < #" & date.today & "#", "日期 desc")