[求助]日期输入框显示非本月份的赋值代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：日期.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编辑过]

主题：[求助]日期输入框显示非本月份的 赋值代码