Time Logging Routine?

[PeteCresswell]

I've written my own routines for checking perfromance from VBA code,
but don't trust them 100%.

Also, I figure greater minds than mine have produced far superior
products.

I've got three kinds of calls:

1) BEGIN (Remarks)

2) WITHIN (Remarks)

3) END .

Begin writes a log entry with the remarks and zeros the time counter
for that level of the heirarchy.
If we are within any other "Begin/End" pairs, it nests the new one
appropriately within the heirarchy.

Within simply writes a log entry showing the remarks and elapsed time
since Begin.

End's log entry reproduces Begin's remarks with "END" appended and
shows the total time elapsed since it's matching BEGIN.

Has anybody written something like this that they trust 100% and are
willing to share?

Here's some sample output from mine:

----------------------------------------------------------------------
0.00 --------------------- pcresswell 10-20-2008 10:04:16
-----------------------------
0.00 PCRESSWELL-06 0 00.000 00.000 Connect Refresh
BEGIN
0.00 PCRESSWELL-06 1 00.047 00.047 Connect Refresh
END

0.00 PCRESSWELL-06 2 07.313 00.000 Compute Accural
Streams as of 10/20/2008, SecurityID='0'. BEGIN
0.00 PCRESSWELL-06 3 07.532 00.219 Compute payment
accrual CalcType='B', SecurityID='4' BEGIN
0.00 PCRESSWELL-06 4 07.578 00.046 End date
computed
0.00 PCRESSWELL-06 5 07.672 00.140 Accrual array
created
0.00 PCRESSWELL-06 6 07.672 00.140
ResetDateNextAfterSettle and CouponRateAgreedUpon determined
0.00 PCRESSWELL-06 7 07.688 00.156 Compute payment
accrual CalcType='B', SecurityID='4' END 0 Accruals.

0.00 PCRESSWELL-06 8 07.688 00.375 Compute payment
accrual CalcType='B', SecurityID='5' BEGIN
0.00 PCRESSWELL-06 9 07.735 00.047 End date
computed
0.00 PCRESSWELL-06 10 07.828 00.140 Accrual array
created
0.00 PCRESSWELL-06 11 07.828 00.140
ResetDateNextAfterSettle and CouponRateAgreedUpon determined
0.00 PCRESSWELL-06 12 07.828 00.140 Compute payment
accrual CalcType='B', SecurityID='5' END 0 Accruals.

0.00 PCRESSWELL-06 13 07.844 00.531 Compute payment
accrual CalcType='D', SecurityID='8' BEGIN
0.00 PCRESSWELL-06 14 07.875 00.031 End date
computed
0.00 PCRESSWELL-06 15 08.110 00.266 Accrual array
created
0.00 PCRESSWELL-06 16 08.235 00.391
ResetDateNextAfterSettle and CouponRateAgreedUpon determined
0.00 PCRESSWELL-06 17 08.235 00.391 Holding total
retrieved from array
0.00 PCRESSWELL-06 18 08.250 00.406 Amount computed
for single day
0.00 PCRESSWELL-06 19 08.250 00.406 Record written
via DAO
0.00 PCRESSWELL-06 20 08.266 00.422 Record written
to table
0.00 PCRESSWELL-06 21 08.266 00.422 Compute payment
accrual CalcType='D', SecurityID='8' END
----------------------------------------------------------------------

 

[PeteCresswell]

Here's some sample output from mine:

----------------------------------------------------------------------
0.00 --------------------- pcresswell 10-20-2008 10:04:16
-----------------------------
0.00 PCRESSWELL-06 0 00.000 00.000 Connect Refresh
BEGIN
0.00 PCRESSWELL-06 1 00.047 00.047 Connect Refresh
END

Needless-to-say, Google's text wrapping made a rat's breakfast out of
my little sample

If anybody's interested, I can email VBA code and sample.