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