以文本方式查看主题

-  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
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:$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

--  作者: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
--  
看懂代码,根据自己需要改,不会就上传例子