Calculate Time Difference in Milliseconds

[snufse]

I need to calculate performance on a stored procedure call and looking for ways to calculate elapsed time in milliseconds. I am using following code that gives me only seconds:

Dim FromTime As Date = Now
executeROApproval()
Dim ToTime As Date = Now
Dim DifferenceInSeconds As Long = DateDiff(DateInterval.Second, OldTime, NewTime)
Dim SpanFromSeconds As TimeSpan = New TimeSpan(0, 0, DifferenceInSeconds)

Any good ideas? Thanks.

 

[PlausiblyDamp]

Dim FromTime As Date = DateTime.Now
executeROApproval()
Dim ToTime As Date = DateTime.Now
Dim ts As TimeSpan = ToTime.Subtract(FromTime)
Dim DifferenceInMilliseconds As Double = ts.TotalMilliseconds

 

[nbrege]

Here is another way:

Dim t1 As Integer = My.Computer.Clock.TickCount
executeROApproval()
Dim elapsedtime As Integer = My.Computer.Clock.TickCount - t1