以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何处理特殊形式的时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130255)
--  作者：dzy1232016
--  发布时间：2019/1/17 9:10:00
--  如何处理特殊形式的时间
表内有这样的样式如何求出时间：
语文 10：00-11：30
物理、化学9：10-11：40
第一个算出来为90分
第二个算出来为150分，如何得出这个结果
--  作者：有点甜
--  发布时间：2019/1/17 9:16:00
--  
Dim str As String = "10:00-11:30"
Dim d1 As Date = str.split("-")(0)
Dim d2 As Date = str.split("-")(1)
Dim sp As TimeSpan = d2-d1
msgbox(sp.TotalMinutes)
--  作者：有点甜
--  发布时间：2019/1/17 9:18:00
--  
Dim str As String = "语文 10:00-11:30"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^0-9:-]", "")
msgbox(str)
Dim d1 As Date = str.split("-")(0)
Dim d2 As Date = str.split("-")(1)
Dim sp As TimeSpan = d2-d1
msgbox(sp.TotalMinutes)
--  作者：dzy1232016
--  发布时间：2019/1/17 9:41:00
--  
谢谢版主
--  作者：dzy1232016
--  发布时间：2019/1/17 11:56:00
--  
有个小问题如果“：”是中文状态下输入的就不能识别能处理嘛？
--  作者：有点甜
--  发布时间：2019/1/17 12:04:00
--  

如

 

\'\'\'
Dim str As String = "语文 10：00-11：30"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^0-9:\\-：]", "")
msgbox(str)
Dim d1 As Date = str.split("-")(0)
Dim d2 As Date = str.split("-")(1)
Dim sp As TimeSpan = d2-d1
msgbox(sp.TotalMinutes)

 

 
--  作者：dzy1232016
--  发布时间：2019/1/17 13:13:00
--  
我怎么复制进去后还是不行
--  作者：dzy1232016
--  发布时间：2019/1/17 13:16:00
--  
在代码里面不能输入中文符号
--  作者：有点甜
--  发布时间：2019/1/17 15:16:00
--  
以下是引用dzy1232016在2019/1/17 13:16:00的发言：
在代码里面不能输入中文符号

 

看看这里

 

http://www.foxtable.com/webhelp/scr/1273.htm

 

全部代码都要复制进去

 

\'\'\'
Dim str As String = "语文 10：00-11：30"
str = System.Text.RegularExpressions.Regex.Replace(str, "[^0-9:\\-：]", "")
msgbox(str)
Dim d1 As Date = str.split("-")(0)
Dim d2 As Date = str.split("-")(1)
Dim sp As TimeSpan = d2-d1
msgbox(sp.TotalMinutes)

 

 
--  作者：dzy1232016
--  发布时间：2019/1/17 15:56:00
--  
谢谢版主没有问题了