Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获取DateTimePicker上月时间


  共有1854人关注过本帖树形打印复制链接

主题：如何获取DateTimePicker上月时间
帅哥哟，离线，有人找我吗？
clchen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：1750 威望：0 精华：0 注册：2016/5/20 12:55:00 		如何获取DateTimePicker上月时间  发帖心情 Post By：2016/9/6 11:26:00 [只看该作者]

如何获取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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109406 积分：556686 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：1750 威望：0 精华：0 注册：2016/5/20 12:55:00 		  发帖心情 Post By：2016/9/6 14:24:00 [只看该作者]

这个要怎么判断呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109406 积分：556686 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：241 积分：1750 威望：0 精华：0 注册：2016/5/20 12:55:00 		  发帖心情 Post By：2016/9/6 16:13:00 [只看该作者]

这个没有table  能不能去掉啊？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109406 积分：556686 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/6 17:50:00 [只看该作者]

看懂代码，根据自己需要改，不会就上传例子

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询