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

 

附   件:

点击下载此示例

 

图   示: