Dim d2 As Date = "2019-2-20"Dim d1 As Date = "2019-2-15"Dim t As TimeSpan = d2 - d1Dim d3 As Date
If t.totaldays > 0 Then d3 = d2.AddDays(t.TotalDays)End If
msgbox(d3)
加好友 
发短信
Post By：2019/2/28 15:04:00 [显示全部帖子]
