Foxtable(狐表)用户栏目专家坐堂 → 求助:时间计算问题


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

主题:求助:时间计算问题

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:时间计算问题  发帖心情 Post By:2015/1/7 17:29:00 [只看该作者]

问题1:根据工作需要会录入当前录像开始时间,格式为:2014-01-05 15:23:16  当前结束时间格式为:2014-01-05 16:23:16
但是由于这个时间点上 不可能来操作数据,是事后进行这个时间数据补录,
求解:怎么实现数据录入呢?
思路1:采用日期格式组件 输入年月日 然后采用三个文本框录入时分秒  最后另外新增一列 来按照格式显示 :2014-01-05 15:23:16
求解:更好的实现方法!

问题2:按照上面的操作,怎么实现两个时间段的计算呢?计算的结果主要是计算时分秒

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


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2015/1/7 17:36:00 [只看该作者]

把控件的日期时间格式设置成dateLongTime

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 17:39:00 [只看该作者]

1、放一个月历控件和文本框,就是最好的方法啊;

 

2、 http://www.foxtable.com/help/topics/0287.htm

 


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)1、放一个月历控件和文本框,就是最好...  发帖心情 Post By:2015/1/7 17:51:00 [只看该作者]

2,由于时间格式是动态组合而成 是字符 利用时间计算公式无法进行
提示无法转换成STRING

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 17:59:00 [只看该作者]

 为什么要用字符啊。

 

 动态合成的也可以是日期类型,new Date(年, 月, 日, 时, 分, 秒)


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 为什么要用字符啊。 ...  发帖心情 Post By:2015/1/7 18:23:00 [只看该作者]

组合问题已经解决  现在是时间计算无法实现!
麻烦有点甜老师看看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:时间段求解.foxdb



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 19:13:00 [只看该作者]

If e.DataCol.Name = "开始时间" OrElse e.DataCol.Name = "结束时间" Then
    If e.DataRow.IsNull("结束时间") = False Then
        Dim d1 As Date =e.DataRow("结束时间")
        Dim d2 As Date =e.DataRow("开始时间")
        Dim t As timespan = d1-d2
        e.DataRow("录制时长") = t.TotalHours
    End If
End If

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)If e.DataCol.Name = "开始时间" OrE...  发帖心情 Post By:2015/1/7 20:49:00 [只看该作者]

谢谢

 回到顶部