Question

VB计算两个日期时间的间隔

比如我有两个时间的字符串：
DateTime1 = "2011年6月27日 6:52:22"
DateTime2 = “2011年6月28日 13:52:14"
我怎么求出这两个时间的中间时长
直接使用 35:52:22 这种形式

Answer 1

DATEDIFF 函数计算指定的两个日期中第二个日期与第一个日期的时间差的日期部分。换句话说，它得出两个日期之间的间隔。结果是等于date2 - date1 的日期部分的带符号整数值。
示例代码:
Dim time1 As Date
Dim time2 As Date
Dim td as date
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
td=datediff("ss",time1,time2)
这个只可以求出相差多少秒，还需要你自己进位求出是几秒几分几小时，你可以自己百度"datediff"的用法！

Answer 2

DateTime1 = "2011年6月27日  6:52:22"
DateTime2 = "2011年6月28日  13:52:14"
Dim hh, ss, mm
mm = DateDiff("s", DateTime1, DateTime2)
ss = mm \ 60
hh = ss \ 60
ss = ss Mod 60
mm = mm Mod 60
MsgBox hh & ":" & ss & ":" & mm

Answer 3

Dim time1 As Date
Dim time2 As Date

time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
Debug.Print (time2 - time1) * 24 * 3600
你转化一下就可以了

追问

结果在那里呢？比如我Time3就是最终结果，该怎么写？

追答

Dim time1 As Date
Dim time2 As Date
Dim time3 As Long
Dim h As Long
Dim h1 As Long
Dim m As Long
Dim m1 As Long
Dim s As Long
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
time3 = (time2 - time1) * 24 * 3600
h = time3 \ 3600
h1 = time3 Mod 3600
m = h1 \ 60
m1 = h1 Mod 60
s = m1
MsgBox h & " 时" & m & "分" & s & "秒"

Answer 4

可以使用VB的DateDiff 函数

Answer 5

DateDiff 函数

毫无疑问

msdn 里有的