以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何自动统计用时  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94908)

--  作者:zhuzhi
--  发布时间:2017/1/5 8:49:00
--  如何自动统计用时
各位老师,我有2个字段,分别是办理前时间和办理后时间,里面有数据如****年*月*日*时*分*秒。
现在我设置了一个空字段,想让狐表自动帮我生成办理用时,不知道应该怎么着手才好呢?

十分感谢!!~

我在狐表帮助里找到了一些方法,但我不会用,因为我的办理前时间和办理后时间是字符文本格式,不是双精度小数或日期格式,这样子不知道能不能成立?
[此贴子已经被作者于2017/1/5 9:22:19编辑过]

--  作者:有点蓝
--  发布时间:2017/1/5 9:21:00
--  
参考:http://www.foxtable.com/webhelp/scr/2506.htm
--  作者:zhuzhi
--  发布时间:2017/1/5 9:23:00
--  
谢谢!我刚才找到了这段,但是我不会用,因为我的办理前时间和办理后时间是字符文本格式,不是双精度小数或日期格式,这样子不知道能不能成立?而且我把字段改成日期格式后,就不能显示小时,分,秒了~~我是用这个设置的办结时间
Tables("学生来访").current("处理结果")="已处理"
Tables("学生来访").current("办结时间")= Date.Now()
[此贴子已经被作者于2017/1/5 9:25:47编辑过]

--  作者:有点色
--  发布时间:2017/1/5 10:16:00
--  

参考代码

 

Dim str As String = "2017年1月5日 10时11分15秒"
Dim r As New System.Text.RegularExpressions.Regex("[年月日时分秒]")
Dim ary() As String = r.Split(str)
If ary.length = 7 Then
    Dim d As Date = new Date(ary(0), ary(1), ary(2), ary(3), ary(4), ary(5))
    msgbox(d)
Else
    msgbox("格式不正确")
End If