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 & "秒")