主题：怎样得到16:30-18:00这个时间段的时长并以字符形式存入字段中？

参考代码

Dim str As String = "16:30-18:00"
Dim ary() As String = str.Split("-")
Dim sp As TimeSpan = cdate("2000-1-1 " & ary(1)) - cdate("2000-1-1 " & ary(0))
msgbox(sp.TotalMinutes)