The Weird and The Wonderful

Private mlErrNumber As Long         '** Standard Variable for Error Trapping **
Private msErrDescription As String  '** Standard Variable for Error Trapping **
Private msErrSource As String       '** Standard Variable for Error Trapping **

Private Sub SetError(ByVal alNumber As Long, _
                     ByVal asDescription As String, _
                     ByVal asSource As String, _
                     ByVal asLocation As String)
'================================================================================================
' Sub       : SetError
' Arguments : alNumber          Number of the error
'             asDescription     Description of the error
'             asSource          Source of the original error (Added 1.00.0001)
'             asLocation        Location of the error
'------------------------------------------------------------------------------------------------
' About     : Sets the current error.
'             If mlErrNumber is already set, it just appends to the location
'================================================================================================

    On Local Error Resume Next

    If mlErrNumber = 0 Then
        mlErrNumber = alNumber
        msErrDescription = asDescription
        If asSource = APP_TITLE Or _
                asSource = asLocation Or _
                asSource = "" Then
            msErrSource = ""
        Else
            'It's someone else's error, record where it came from
            msErrSource = " " & asSource
        End If
        Call gObjCommon.SendToLog("E", mlErrNumber, 1, CLASS_NAME, asLocation, _
                msErrDescription & IIf(msErrSource = "", "", " [Occured in" & msErrSource & "]"))
    End If
    If asLocation <> "" Then
        msErrSource = "." & asLocation & msErrSource
    End If
    
End Sub

class CISTimer
{
public:
    CISTimer() {m_p = NULL; m_t = GetTickCount();}
    CISTimer(const char *p) {m_p = p; m_t = GetTickCount();}

    ~CISTimer()
    {
         DWORD d = GetTickCount() - m_t;
         char buf[30];
         _snprintf(buf, 29, "%4.2f  (%d)\n", (double)(d) / 1000.0, d);
         if (m_p)   {OutputDebugString(m_p);}
         OutputDebugString(buf);
    }

protected:
    const char *m_p;
    DWORD m_t;
};

{
   CISTimer("Func1");
   Func1(...);
}
...
{
   CISTimer("Func2");
   Func2(...);
}