Foxtable(狐表)用户栏目专家坐堂 → 求助:关于日期计算的减法计算


  共有3811人关注过本帖树形打印复制链接

主题:求助:关于日期计算的减法计算

帅哥哟,离线,有人找我吗?
yankunhao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1018 积分:7150 威望:0 精华:0 注册:2008/9/1 22:34:00
求助:关于日期计算的减法计算  发帖心情 Post By:2015/3/19 12:09:00 [只看该作者]

目的:我想在一个日期的天数减去相应的天数得出新的日期

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


但发现出现如下错误:

添加或减去的值产生无法表示的 DateTime。
参数名: value

 回到顶部
帅哥哟,离线,有人找我吗?
yankunhao
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1018 积分:7150 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2015/3/19 12:10:00 [只看该作者]

我如果将AddDays(-15)变为正数就没错如:AddDays(15)

请问为什么负数就不行呢?
[此贴子已经被作者于2015/3/19 12:10:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1018 积分:7150 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2015/3/19 15:32:00 [只看该作者]

正确,谢谢!

 回到顶部