- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期输入框显示非本月份的 赋值代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80332)
-- 发布时间：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编辑过]
-- 发布时间：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)
-- 发布时间：2016/1/20 20:42:00
--
谢谢大师的代码,非常精妙.