Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期输入框显示非本月份的 赋值代码


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

主题：[求助]日期输入框显示非本月份的 赋值代码
帅哥哟，离线，有人找我吗？
lidusan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：1201 威望：0 精华：0 注册：2015/8/10 22:49:00 		[求助]日期输入框显示非本月份的 赋值代码  发帖心情 Post By：2016/1/20 20:12:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：日期.bmp
图片点击可在新窗口打开查看
窗体上有两个日期输入框控件,至日期显示为2016-01-19是当前日期-1 的代码:
Dim 日期1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
日期1.Value = Date.Today.addDays(-1)

起日期的显示为2015-12-27  因为销售是每月的26截止的,这个年月日的日是固定27日,所以希望起日期的月份比至日期的月份少一个月,


当至日期的值为2016-01-*
起日期的值为2015-12-27


当至日期的值为2016-02-*
起日期的值为2016-01-27

当至日期的值为2016-03-*
起日期的值为2016-02-27

*为任意天就是起日期的月份-1 日的部分不变,该如何给起日期填写代码?
先行谢过各位大师曾给予的帮助,再谢出手相助的高手.

[此贴子已经被作者于2016/1/20 20:12:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/20 20:16:00 [只看该作者]

dim d as date = "2015-01-05"
d = d.AddMonths(-1)
Dim d2 As Date = new Date(d.Year, d.Month, 27)

msgbox(d2)
 回到顶部
帅哥哟，离线，有人找我吗？
lidusan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：105 积分：1201 威望：0 精华：0 注册：2015/8/10 22:49:00 		  发帖心情 Post By：2016/1/20 20:42: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 次数据查询