字符串值如何转换成为时段列赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串值如何转换成为时段列赋值

共有2184人关注过本帖树形打印复制链接主题：字符串值如何转换成为时段列赋值

happyft

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

等级：八尾狐帖子：1930 积分：17564 威望：0 精华：0 注册：2014/7/29 19:09:00

字符串值如何转换成为时段列赋值 发帖心情

Post By：2018/10/24 20:27:00 [只看该作者]

Dim s As String = "2018/10/21 星期日 07:43:11"

Dim sj As String = s.Substring(s.Indexof("星期")+4)

Dim r As Row = Tables("表A").Current

r("时段1") = Cdbl(sj)

上面的sj是从字符串是提取了 07:43:31 这部份值,想要把它保存在表中的时段列中进行时间计算, 但上面红色部份怎么写才正确?

还是必须先将其转换为日期再处理才行?

谢谢!

有点甜

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

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

Post By：2018/10/24 23:10:00 [只看该作者]

时段里面，保存的是（秒数），你把时间转换成秒即可，比如

Dim str As String = "07:43:11"
Dim d As Date = str
Dim i As Double = d.Hour * 3600 + d.Minute * 60 + d.Second
msgbox(i)

主题：字符串值如何转换成为时段列赋值