| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1332 人关注过本帖
标题:两个datetime字段精确到分,如果求两个字段的时间差?
只看楼主 加入收藏
davyxjc
Rank: 2
等 级:论坛游民
帖 子:130
专家分:76
注 册:2009-6-30
结帖率:70.37%
收藏
 问题点数:0 回复次数:2 
两个datetime字段精确到分,如果求两个字段的时间差?
1. 字段A 2010-10-03 09:30:55
   字段B 2010-10-04 05:30:50
24小时制,请问怎样求这两个时间差?
2.如果改成
  字段A 09:30:55
  字段B 13:30:50
请问又怎样求这两个时间差?
搜索更多相关主题的帖子: 字段 时间差 datetime 
2010-10-05 01:28
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
Option Explicit

Private Sub Form_Load()
    Dim t1 As Date, t2 As Date
    t1 = "2010-10-03 09:30:55"
    t2 = "2010-10-04 05:30:50"
    Debug.Print t1, t2, CDate(t2 - t1), CDate(t1 - t2)
End Sub
2010-10-05 03:23
jianwuqingfe
Rank: 1
等 级:新手上路
帖 子:20
专家分:5
注 册:2011-2-14
收藏
得分:0 
Function GetDoTime(time1, time2)

  secondvalue = DateDiff("s", time1, time2)
  
  dayvalue = DateDiff("d", time1, time2)
  
  hourValue = Fix((secondvalue - dayvalue * 24 * 3600) / 3600)
  
  If hourValue < 0 Then dayvalue = dayvalue - 1: hourValue = 24 + hourValue
  
  minitevalue = Fix((secondvalue - dayvalue * 24 * 3600 - hourValue * 3600) / 60)
  
  If minitevalue < 0 Then hourValue = hourValue - 1: minitevalue = 60 + minitevalue
  
  secondvalue = secondvalue - dayvalue * 24 * 3600 - hourValue * 3600 - minitevalue * 60
  
  If secondvalue < 0 Then minitevalue = minitevalue - 1: secondvalue = 60 + secondvalue
  
If dayvalue > 0 And hourValue >= 0 Or hourValue = -1 Then hourValue = 24 + hourValue
  
  
     GetDoTime = hourValue & ":" & minitevalue & ":" & secondvalue
     
     End Function
此代码能计算不超过2天的时间差,精确到秒值.
2011-02-25 14:58
快速回复:两个datetime字段精确到分,如果求两个字段的时间差?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029856 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved