以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样得到16:30-18:00这个时间段的时长并以字符形式存入字段中？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69687)
--  作者：zgjmost
--  发布时间：2015/6/9 13:52:00
--  怎样得到16:30-18:00这个时间段的时长并以字符形式存入字段中？
怎样得到16:30-18:00这个时间段的时长并以字符形式存入字段中？

如上面是90分钟存入时长字段中
--  作者：Bin
--  发布时间：2015/6/9 14:00:00
--  
16:30-18:00  直接把这个字符存起来即可
--  作者：大红袍
--  发布时间：2015/6/9 14:02: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)