以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：关于日期计算的减法计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65619)
--  作者：yankunhao
--  发布时间：2015/3/19 12:09:00
--  求助：关于日期计算的减法计算
目的：我想在一个日期的天数减去相应的天数得出新的日期

代码如：dim d As Date = drd2("上线日期")
                Dim d1 As Date = d.AddDays(-15)
                
                drd2("完工日期") = d1


但发现出现如下错误：

添加或减去的值产生无法表示的 DateTime。
参数名: value
--  作者：yankunhao
--  发布时间：2015/3/19 12:10:00
--  
我如果将AddDays(-15)变为正数就没错如：AddDays(15)

请问为什么负数就不行呢？
[此贴子已经被作者于2015/3/19 12:10:30编辑过]
--  作者：有点甜
--  发布时间：2015/3/19 14:17:00
--  

dim d As Date = drd2("上线日期")

If d <> Nothing Then

    Dim d1 As Date = d.AddDays(-15)            
    drd2("完工日期") = d1
Else
    drd2("完工日期")  = Nothing
End If
--  作者：yankunhao
--  发布时间：2015/3/19 15:32:00
--  
正确，谢谢！