| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]找出符合条件的最接近的一个日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122543) |
| -- 作者：liuyixin662 -- 发布时间：2018/7/27 16:44:00 -- [求助]找出符合条件的最接近的一个日期 老师你好,表A有个日期列,如何根据当前系统日期,找出最接近当前系统日期的一个日期,谢谢 |
| -- 作者：有点甜 -- 发布时间：2018/7/27 17:05:00 -- Dim d As Date = Date.Today Dim fdr As DataRow = DataTables("表A").find("日期 <= #" & d & "#", "日期 desc") msgbox(fdr("日期")) |
| -- 作者：liuyixin662 -- 发布时间：2018/7/27 18:36:00 -- 老师你好,如何只比较月份及日,不比较年份(即不比较年:如1月1日,2月1日,3月1日,5月6日,6月8日,8月9日等) |
| -- 作者：有点蓝 -- 发布时间：2018/7/27 20:23:00 -- Dim d1 As Date = Date.Today Dim d2 As Date = Date.Today.AddDays(30) |