- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 日期段 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99078)
-- 发布时间：2017/4/12 12:32:00
-- 日期段
Dim y As Integer = Date.Today.Year
Dim d As Date = Date.Today
Dim dt1 As New Date(y, 5, 1)
Dim dt2 As New Date(y, 11, 1)
If d >= dt1 And d<=dt2 Then 这段代码错误，请指教，谢谢！
e.Form.Controls("学期").text= y & "年春季"
End If
[此贴子已经被作者于2017/4/12 12:47:51编辑过]
-- 发布时间：2017/4/12 12:49:00
--
此主题相关图片如下：2.jpg
-- 发布时间：2017/4/12 13:00:00
--
谢谢！
Dim y As Integer = Date.Today.Year
Dim d As Date = Date.Today
Dim dt1 As New Date(y, 5, 1)
Dim dt2 As New Date(y, 11, 1)
If d >= dt1 And d <= dt2 Then
e.Form.Controls("学期").text= y & "年春季"
End If
-- 发布时间：2017/4/12 14:25:00
--
3楼的代码没有报错，你的逻辑问题？请具体说明。