功能:计算二个时间的时间差参数:date1是较早的时间,Variant(Date).date2是较晚的时间,Variant(Date).若要计算两个日期之时间差,计算顺序是从date1到date2返回值:时间差的组合字串,例如2年

Question

功能 : 计算二个时间的时间差
参数 : date1 是较早的时间, Variant (Date).
date2 是较晚的时间, Variant (Date).
若要计算两个日期之时间差,计算顺序是从 date1 到 date2
返回值 : 时间差的组合字串, 例如 2年21天13小时5分钟3秒

Answer 1

Function Convtime(date1 As Date,date2 As Date) As String
'
'功能 :计算二个时间的时间差
'
'参数 :date1 是较早的时间,Variant (Date).
' date2 是较晚的时间,Variant (Date).
'
'若要计算两个日期之时间差,计算顺序是从 date1 到 date2
'
'返回值 :时间差的组合字串,例如 2年21天13小时5分钟3秒
'
Dim wsecond As Long '总秒数 / 剩余秒数
Dim wminute As Long '总分钟数 / 剩余分钟数
Dim whour As Long '总时数 / 剩余时数
Dim wday As Long '总天数 / 剩余天数
Dim wyear As Long '总年数
wsecond = DateDiff("s",date1,date2) '总秒数
If wsecond > 60 Then
wminute = wsecond \ 60 '总分钟数
wsecond = wsecond Mod 60 '计算剩余秒数
End If
If wminute > 60 Then
whour = wminute \ 60 '总时数
wminute = wminute Mod 60 '计算剩余分钟数
End If
If whour > 24 Then
wday = whour \ 24 '总天数
whour = whour Mod 24 '计算剩余时数
End If
If wday > 365 Then
wyear = wday \ 365 '总年数
wday = wday Mod 365 '计算剩余天数
End If