如何处理特殊形式的时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何处理特殊形式的时间

共有2908人关注过本帖树形打印复制链接主题：如何处理特殊形式的时间

dzy1232016

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

如何处理特殊形式的时间 发帖心情

Post By：2019/1/17 9:10:00 [只看该作者]

表内有这样的样式如何求出时间：

语文 10：00-11：30

物理、化学9：10-11：40

第一个算出来为90分

第二个算出来为150分，如何得出这个结果

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/1/17 9:41:00 [只看该作者]

谢谢版主

dzy1232016

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00

Post By：2019/1/17 11:56:00 [只看该作者]

有个小问题如果“：”是中文状态下输入的就不能识别能处理嘛？

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)