日期段 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期段

共有1985人关注过本帖树形打印复制链接主题：日期段

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/18 15:17:00 [显示全部帖子]

Tables("教工合同").filter = "起始日期 >= #2019-01-20# and 结束日期 <= #2019-10-19#"

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/19 9:24:00 [显示全部帖子]

Tables("教工合同").filter = "结束日期 >= #2019-01-20# and 结束日期 <= #2019-10-19# or 开始日期 >= #2019-01-20# and 开始日期 <= #2019-10-19# or 开始日期 <= #2019-01-20# and 结束日期 >= #2019-10-19#"

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/22 12:35:00 [显示全部帖子]

在validating事件比较，比较输入的值，是否在你的日期范围，即可。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/4/22 14:55:00 [显示全部帖子]

Dim y As Integer = Date.Today.Year
Dim d1 As Date = new Date(y-1, 9, 1)
Dim d2 As Date = new Date(y, 6, 30)
Dim d As Date = e.sender.value
msgbox(d)
If d < d1 OrElse d > d2 Then
e.cancel = True
MessageBox.Show("起始日期只能是:" & d1 & " 至 "& d2 & " !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
End If

下一主题 >> << 上一主题

主题：日期段