- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何获取DateTimePicker上月时间 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90137)
-- 发布时间：2016/9/6 11:26:00
-- 如何获取DateTimePicker上月时间
如何获取DateTimePicker控件上月25号的日期和下个月的25号时间
假如：
ComboBox2 选择的是8月 是生成8月对账信息
如果对账子表中没有8月份之前的数据
开始日期则是自己填写
结束日期则是取当月最大的日期 也就是8月份最大的日期
如果对账子表中有8份之前的数据
开始日期则是生成上月的25号 也就是7月25号
结束日期则是生成当月的25号 也就是8月25号
如果对账子表中没有8月份的数据 有7月和9月的数据
开始日期则是 上月的最大日期 也就是7月最大的日期
结束日期则是 下月的最小日期 也就是9月最小的日期
此主题相关图片如下：@@f16)16k{()7z(4xkusa)k.png
此主题相关图片如下：$r_xu21yum`0@0tfhn$%y$c.png
-- 发布时间：2016/9/6 14:13:00
--
http://www.foxtable.com/webhelp/scr/1337.htm
如
Dim d As Date = new Date(nian,yue,25).AddMonths(-1) \'上个月25
-- 发布时间：2016/9/6 14:24:00
--
这个要怎么判断呢？
-- 发布时间：2016/9/6 14:52:00
--
Dim nian As Integer = 2016
Dim Products As List(Of String) = DataTables("表A").GetValues("月","年=\'" & nian & "\'")
Dim sdate As Date
Dim edate As Date
If Products.Contains("8") Then
If Products(0) < "8" Then
sdate = new Date(nian,7,25)
edate = new Date(nian,8,25)
Else
sdate = 填写的值
edate = new Date(nian,8,31)
End If
Else
If Products.Contains("7") AndAlso Products.Contains("9") Then
sdate = new Date(nian,7,31)
edate = new Date(nian,9,1)
End If
End If
-- 发布时间：2016/9/6 16:13:00
--
这个没有table 能不能去掉啊？
-- 发布时间：2016/9/6 17:50:00
--
看懂代码，根据自己需要改，不会就上传例子