<<< 返回 access911.net 编程静态资料库索引页

如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2004-6-18  浏览人次:1399


专题地址:http://access911.net/fixhtm/71FABF1E10DCEBF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?

 


Function test1()
    Debug.Print timeDiff(#6/18/2004 1:01:51 AM#, #6/28/2004 1:01:52 AM#)
End Function

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) & "分"
    st.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FABF1E10DCEBF3.htm

 


上一篇:在Pocket PC 2002 上是否有 ACCESS 软件可以使用?

下一篇:一道褒贬不一的 SQL 考试题

2017年2月22日生成静态资料