主题：如何实现时间的加减？？呼叫大红袍老师

在时段概述里有看到时段计算如下：

Dim d1 as Date = #3/17/2002 12:30#
Dim d2 as Date = #1/1/2008 18:30#
Dim t As TimeSpan = d2 - d1
Output.Show(t.TotalDays & "天")

在命令窗口执行上述代码，得到的输出结果是：2116.25天

我想实现的目标是用当前时间加减小时然后得出最新时间

例如：实现最新时间= date.now + 5.2小时，然后用labell显示