Foxtable(狐表)用户栏目专家坐堂 → 如何自动统计用时


  共有2104人关注过本帖树形打印复制链接

主题:如何自动统计用时

帅哥哟,离线,有人找我吗?
zhuzhi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:476 积分:4039 威望:0 精华:0 注册:2011/11/2 8:55:00
如何自动统计用时  发帖心情 Post By:2017/1/5 8:49:00 [只看该作者]

各位老师,我有2个字段,分别是办理前时间和办理后时间,里面有数据如****年*月*日*时*分*秒。
现在我设置了一个空字段,想让狐表自动帮我生成办理用时,不知道应该怎么着手才好呢?

十分感谢!!~

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/5 9:21:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhuzhi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:476 积分:4039 威望:0 精华:0 注册:2011/11/2 8:55:00
  发帖心情 Post By:2017/1/5 9:23:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部