主题：日期段

 

e.Form.Controls("起始日期").Value = #01/20/2019#
e.Form.Controls("结束日期").Value = #10/19/2019#

DataTables("教工合同")

起始日期 是：2019-02-01

起始日期 是：2019-09-30

用e.Form.Controls("起始日期").Value 和e.Form.Controls("结束日期").Value 日期段，查找DataTables("教工合同")表中起始日期和结束日期的日期段

dr = DataTables("教工合同").SQLFind("求代码")
If dr IsNot Nothing Then
   dr("起始日期") = e.Form.Controls("起始日期").Value

   dr("结束日期") = e.Form.Controls("结束日期").Value
End If

 

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

老师请教，(起始日期 >= #2018-09-01# And 结束日期 <= #2019-06-30#) 包含#2019-05-10#

有的合同从2018-09-01到2019-01-30，有合同从2018-09-01到2019-06-30

Sele ct  教工姓名,a.身份证号,起始日期,结束日期 From {教工基本信息} a INNER JOIN {教工合同} b ON a.身份证号 = b.身份证号  Where (起始日期 >= #2018-09-01# And 结束日期 <= #2019-06-30#) 包含 #2019-05-10#

请老师指教，谢谢

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#"

谢谢

老师还想问个问题

Dim d As Date = Date.Today
Dim y As Integer = Date.Today.Year
If d >= y-1 & "-09-01" And d <= y & "-06-30" Then
e.sender.Text 只能输入"2018-09-01到 2019-06-30"时段任意一天
End If

请指教，谢谢！

 

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

 

 

是这样吗？

If d >= y-1 & "-09-01" And d <= y & "-06-30" Then
     If e.Sender.Text >= y-1 & "-09-01" And e.Sender.Text < y & "-06-30" Then
        e.cancel = True
      Else
       MessageBox.Show("起始日期只能是:" & y-1 & "-09-01 至 "& y & "-06-30 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
     End If

End If

 

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

 

谢谢