- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期增加天数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131523)
-- 发布时间：2019/2/28 14:21:00
-- [求助]日期增加天数
按以下代码，先计算得出d2-d1=5天后，再d2 + 5天，即最终结果d3=2019-2-25
使用以下代码错误，请问怎么改？
dim d3 as date
d3 = d2 + t.days
end if
-- 发布时间：2019/2/28 15:04:00
--
Dim d2 As Date = "2019-2-20"
Dim d1 As Date = "2019-2-15"
Dim t As TimeSpan = d2 - d1
Dim d3 As Date
If t.totaldays > 0 Then
d3 = d2.AddDays(t.TotalDays)
End If
msgbox(d3)
-- 发布时间：2019/2/28 15:35:00
--
明白，谢了
