[AccessD] Timer Class in Access

[John Colby]

Option Compare Database
Option Explicit
'
'This class is so simple that I will not use the normal class framework
interface.
'This class never loads children, never does anything that should cause
problems
'so the framework interface is generally unneeded.
'
Private Declare Function apiGetTime Lib "winmm.dll" _
                                    Alias "timeGetTime" () As Long

Private lngStartTime As Long

'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+Class function / sub declaration
Function EndTimer()
    EndTimer = apiGetTime() - lngStartTime
End Function

Sub StartTimer()
    lngStartTime = apiGetTime()
End Sub
'*-Class function / sub declaration




On Fri, Mar 4, 2022 at 1:31 PM Arthur Fuller <fuller.artful at gmail.com>
wrote:

> With the recent demise of my main laptop, I seem to have lost my copy of
> John Colby's Timer class. JWC, or anyone else with a copy, please send it
> to me privately.
> Thanks!
>
> --
> Arthur
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
John W. Colby
Colby Consulting