时段概述
时段的类型为TimeSpan，所谓时段，就是一段时间范围。
定义一个新的TimeSpan的语法为：
New TimeSpan(days,
hours, minutes, seconds,
milliseconds)
New TimeSpan(days,
hours, minutes, seconds)
New TimeSpan(hours,
minutes, seconds)
days:
天数
hours: 小时数
minutes: 分数
seconds:
秒数
milliseconds: 毫秒数
例如：
Dim
tp1 As New TimeSpan(20,13,45) '20小时13分45秒时段数据有以下常用属性：
| 属性 | 说明 |
| Days | 获得时段数据的天数 |
| Hours | 获得时段数据的小时数 |
| Minutes | 获得时段数据的分钟数 |
| Seconds | 获得时段数据的秒数 |
两个日期时间数据相减，得到的就是一个时段型数据。
例如：
Dim
d1 as Date = #3/17/2002 12:30:29#在命令窗口执行上述代码，得到的输出结果是：2115天21小时41分20秒
利用时段数据的下述属性，可以将时段转换为一个数值：
| 属性 | 说明 |
| TotalDays | 将时段值转换为以天为单位的数值 |
| TotalHours | 将时段值转换为以小时为单位的数值 |
| TotalMinutes | 将时段值转换为以分为单位的数值 |
| TotalSeconds | 将时段值转换为以秒为单位的数值 |
例如：
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天
利用时段数据的Add和Subtract方法，可以进行时段的加减，并得到一个新的时段值。
例如：
Dim
t0 As New TimeSpan(10,0,5)在命令窗口执行上述代码，得到的输出结果是：39天0小时9分35秒
日期可以和时段进行加减，得到一个新的日期，例如：
Dim
dt As
Date = Date.Now
Dim
sp As
New TimeSpan(20,13,45)
Dim
dt1 As
Date = dt +
sp '20小时13分45秒之后的时间
Dim
dt2 As
Date = dt -
sp '20小时13分45秒之前的时间
有时为了测试代码的效率，我们需要记录代码执行所耗费的秒数，可以参考下面的代码:
Dim
t1 As Date = Date.Now