杭州交通信息网基因原体:计算二个时间的时间差
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 18:02:29
功能 : 计算二个时间的时间差
参数 : date1 是较早的时间, Variant (Date)。
date2 是较晚的时间, Variant (Date)。
若要计算两个日期之时间差，计算顺序是从 date1 到 date2
返回值 : 时间差的组合字串, 例如 2年21天13小时5分钟3秒
参数 : date1 是较早的时间, Variant (Date)。
date2 是较晚的时间, Variant (Date)。
若要计算两个日期之时间差，计算顺序是从 date1 到 date2
返回值 : 时间差的组合字串, 例如 2年21天13小时5分钟3秒
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