时间差的精确表达

时　间: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交流群 (群号:483923997) 　　　　　　Access源码网店