如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?
时 间:2017-05-12 14:03:17
作 者:MDZZ ID:47512 城市:南京
摘 要:如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?
正 文:
学员问题: 如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?
这里用函数解决
Function timeDiff(dteStart As Date, dteEnd As Date) As String Dim lngDiff As Long Dim strCheck(3) lngDiff = DateDiff("s", dteStart, dteEnd) strCheck(0) = CStr(lngDiff Mod 60) & "秒" strCheck(1) = CStr(lngDiff \ 60 Mod 60) & "分" strCheck(2) = CStr(lngDiff \ 60 \ 60 Mod 24) & "小时" strCheck(3) = CStr(lngDiff \ 60 \ 60 \ 24) & "天" Dim i As Integer For i = 0 To 3 If Left(strCheck(i), 1) = "0" Then strCheck(i) = "" End If Next timeDiff = strCheck(3) & strCheck(2) & strCheck(1) & strCheck(0) End Function调用示例 :
Sub test1() Debug.Print timeDiff(#6/18/2004 1:01:51 AM#, #6/28/2004 1:01:52 AM#) End Sub
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)