- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这块不会写了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110982)
-- 发布时间：2017/12/13 13:23:00
-- 这块不会写了
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)
如果天数40换做变量ts的值，这段代码该如可写？
dim ts as integer = 40
Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(ts?)
-- 发布时间：2017/12/13 13:31:00
--
Dim dd As Integer =40
Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddDays(dd) \'加上40天
Dim d2 As Date = d.AddDays(-dd) \'减去40天
Output.Show("40天后的日期:" & d1)
Output.Show("40天前的日期:" & d2)
此主题相关图片如下：微信截图_20171213133118.png
[此贴子已经被作者于2017/12/13 13:31:42编辑过]
-- 发布时间：2017/12/13 13:43:00
--
谢谢。但是，在这里可以，一旦用于合成表达式的情形下就不行了。
-- 发布时间：2017/12/13 14:06:00
--
例如
p是窗口中的控件( DateTimePicker1)
RT是专业报表中的文本（Dim RT As new prt.RenderText）
dim ts as integer = 40
下边代码报错：
RT.Text= " 有效期: " & P.value & " 至 " & P.value.AddDays(ts)
这样写也报错：
RT.Text= " 有效期: " & P.value & " 至 " & P.value.AddDays(" & ts & ")
-- 发布时间：2017/12/13 14:11:00
--
这样写肯定没问题，报错截图说明
RT.Text= " 有效期: " & P.value & " 至 " & P.value.AddDays(ts)