Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

时间差的精确表达

时 间:2015-10-12 11:31:08
作 者:在水一方   ID:20576  城市:沈阳
摘 要:完善datediff函数的显示效果,函数中假设每年为365天。
正 文:

Function Sec2Date(Time1 As Date, Time2 As Date) As String
    Dim A, B, NUM
    Dim Y, M, D, H, N, S
    A = 31536000    '一年的秒数
    B = Int(A / 12)    '一月的秒数.
    NUM = Abs(DateDiff("s", Time1, Time2))
    If NUM <= A Then
        Y = NUM \ A    '年
        M = (NUM Mod A) \ B    '月
        D = (NUM Mod B) \ 86400    '日
        H = (NUM Mod 86400) \ 3600    '时
        N = (NUM Mod 3600) \ 60    '分
        S = NUM Mod 60    '秒
        Sec2Date = Y & " 年 " & M & " 月 " & D & " 日 " & H & " 时 " & N & " 分 " & S & " 秒 "
    Else
        Sec2Date = "数值不能超过 1 年(" & A & "秒)"
    End If

End Function

 

附   件:

点击下载此示例

 

图   示:



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助