以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何获取DateTimePicker上月时间 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90137) |
-- 作者:clchen -- 发布时间: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 |
-- 作者:有点蓝 -- 发布时间: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
|
-- 作者:clchen -- 发布时间: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
|
-- 作者:clchen -- 发布时间:2016/9/6 16:13:00 -- 这个没有table 能不能去掉啊? |
-- 作者:有点蓝 -- 发布时间:2016/9/6 17:50:00 -- 看懂代码,根据自己需要改,不会就上传例子 |