根据天算日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据天算日期

共有1697人关注过本帖树形打印复制链接主题：根据天算日期

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

根据天算日期 发帖心情

Post By：2017/9/7 17:33:00 [只看该作者]

在DateTimePicker1 输入日期，再在TextBox1输入天数，DateTimePicker2得到DateTimePicker1+天数的日期怎么写呀，感谢，感谢

堕落的后天

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：175 积分：1431 威望：0 精华：0 注册：2017/8/4 14:17:00

Post By：2017/9/7 19:24:00 [只看该作者]

语法：

AddDays(Value)

Value: 要加上的天数，可以是负数也可以是正数。

例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(40) '加上40天
Dim d2 As Date = d.AddDays(-40) '减去40天
Output.Show("40天后的日期：" & d1)
Output.Show("40天前的日期：" & d2)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/7 20:26:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/0260.htm

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/14 22:16:00 [只看该作者]

Dim d As Date = Controls("DateTimePicker1")

Dim d1 As Date = d.ComboBox1 '加上40天

Dim Controls("DateTimePicker2") As Date = d.AddDays() '减去40天

这个应该怎么写啊，感谢感谢

DateTimePicker2 = DateTimePicker1 + ComboBox1

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/14 22:41:00 [只看该作者]

Dim d As Date = e.form.Controls("DateTimePicker1").Value

Dim d1 As Date = d.AddDays(e.Form.Controls("ComboBox1").Text) '加上40天

yangwenghd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/14 23:38:00 [只看该作者]

DateTimePicker2怎么写在那里啊，感谢感谢

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/15 8:56:00 [只看该作者]

Dim d As Date = e.form.Controls("DateTimePicker1").Value

Dim d1 As Date = d.AddDays(e.Form.Controls("ComboBox1").Text) '加上40天

e.form.Controls("DateTimePicker2").Value = d1

[此贴子已经被作者于2017/9/15 8:56:44编辑过]

yangwenghd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/15 23:07:00 [只看该作者]

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.6.12.1

错误所在事件：窗口,计划表窗口,TextBox8,ValueChanged

详细错误信息：

从字符串“”到类型“Double”的转换无效。

输入字符串的格式不正确。

是控件是时间呀？为什么不对啊，感谢感谢

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/15 23:21:00 [只看该作者]

Dim d1 As Date = d.AddDays(val(e.Form.Controls("ComboBox1").Text) )

下一主题 >> << 上一主题

主题：根据天算日期