我不能使用DATEDIFF VBA

Question

例输入：当我使用

ans = datediff("s", date1, date2) 

它产生错误

date1 = "2015-03-23 07:06:17.855000" 
date2 = "2015-03-23 07:06:17.870000" 

：type mismatch

我该如何解决这个问题？

Answer 1

看起来你还没有成功的答案，所以这里有一个可能性。

Dim t() as string 
Dim d1 as long 
Dim d2 as long 

date1 = "2015-03-23 07:06:17.855000" 
date2 = "2015-03-23 07:06:17.870000" 
t = split(date1, ".") 'use the "." to split off the miliseconds 
d1 = clng(t(2))   'grab the milliseconds, convert it to long 
t = split(date2, ".") 'use the "." to split off the miliseconds from the other date 
d2 = clng(t(2))   'grab the milliseconds, convert it to long 

msgbox "Difference in milliseconds: " & cstr(d2-d1) 

Answer 2

尝试通过使用CDate("string_date")转换作为字符串存储到日期数据类型的日期：

Dim date1 As String, date2 As String, ans As Long 

date1 = "2015-03-23 07:06:17.855000" 
date2 = "2015-03-23 07:06:17.870000" 
ans = datediff("s", CDate(Left(date1, Len(date1)-7)), CDate(Left(date2, Len(date2)-7))) 
'returns 0, because both date and parts are the same! 

DateDiff功能的最小单位是一秒钟。