以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么写周期循环代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87674)

--  作者:飞云
--  发布时间:2016/7/16 16:52:00
--  怎么写周期循环代码
您好,比如在一段时间内(7月15日至9月15日)每周三、五或二、四、六(不固定,自己选)等做为循环的重复提醒的日期,那么代码要怎么写,我用CheckedListBox控件,然后添加到表中,谢谢。
--  作者:Hyphen
--  发布时间:2016/7/16 17:05:00
--  
比较当前日期的周数是否在选择的周数内,如果是就提醒

Dim lst As new List(of Integer)
lst.Add(3)
lst.Add(5)
If lst.Contains( Date.Today.DayOfWeek) Then msgbox("提醒")