以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符串值如何转换成为时段列赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126589)
--  作者：happyft
--  发布时间：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 这部份值,想要把它保存在表中的时段列中进行时间计算, 但上面红色部份怎么写才正确?
还是必须先将其转换为日期再处理才行?

谢谢!
--  作者：有点甜
--  发布时间：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)