Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function KevinTimer()
'Elapsed Time Function - Update [Post#: 19515 ]
' Kevin Paddock
'
'
' I discovered what appears to be an undocumented item that solved (I think it solved) my problem: how to calculate an elapsed
' time and display the results with milliseconds.Dim TimeStart, TimeLapsed
Dim TimeStart, TimeLapsed
TimeStart = Time
Dim i As Long
For i = 1 To 10000000
Next i
TimeLapsed = Time - TimeStart
MsgBox Format(TimeLapsed, "ss.ms")
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function KevinTimer()
'Elapsed Time Function - Update [Post#: 19515 ]
' Kevin Paddock
'
'
' I discovered what appears to be an undocumented item that solved (I think it solved) my problem: how to calculate an elapsed
' time and display the results with milliseconds.Dim TimeStart, TimeLapsed
Dim TimeStart, TimeLapsed
TimeStart = Time
Dim i As Long
For i = 1 To 10000000
Next i
TimeLapsed = Time - TimeStart
MsgBox Format(TimeLapsed, "ss.ms")
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001