参考:时段概述章节:
Dim t0 As New TimeSpan(10,0,5)
Dim t1 As New TimeSpan(40,6,30,15)
Dim t2 As New TimeSpan(40,20,45)
Dim t3 As TimeSpan
t3 = t1.Subtract(t2) 't3等于t1减去t2
t3 = t3.Add(t0) 't3加上t0
Output.Show(t3.Days & "天" & t3.Hours & "小时" & t3.Minutes & "分" & t3.Seconds & "秒")
在命令窗口执行上述代码,得到的输出结果是:39天0小时9分35秒