Time Difference in Access using VBA

[bacon333]

Here's the code:

Dim starttime As Date
starttime = Format(Now(), "nn:ss")
MsgBox starttime

[processes]

Dim endtime As Date
endtime = Format(Now(), "nn:ss")
MsgBox endtime

Dim finaltime As Long
finaltime = DateDiff("s", starttime, endtime)
MsgBox finaltime

I keep getting a "type mismatchtype: 0" error. Any ideas?

 

[MrChad]

The Format function is re-casting starttime and endtime as String objects. DateDiff requires Date objects. Try:

 

[Wizkid]

Format returns a string, try this instead:

Dim starttime As Date
starttime = Now()
MsgBox Format(starttime, "nn:ss")

'[processes]

Dim endtime As Date
endtime = Now()
MsgBox Format(endtime, "nn:ss")

Dim finaltime As Long
finaltime = DateDiff("s", starttime, endtime)
MsgBox finaltime

 

[KLin]

change the formatting to hh:nn:ss. that should fix the problem.

 

[bacon333]

Thanks for the replies. you guys were right, it was the format casting problem.