TSTraceInfo

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Source

METHOD TSTraceInfo( pstruTSTraceInfo AS TS_PSZString ) AS VOID PASCAL CLASS TS_DateTimeFromVariant
   TSTrace NewInfo
   IF SELF:_SystemTime<>NULL_PTR
      TSTrace AddInfo _SystemTime.wYear
      TSTrace AddInfo _SystemTime.wMonth
      TSTrace AddInfo _SystemTime.wDay
      TSTrace AddInfo _SystemTime.wDayOfWeek
      TSTrace AddInfo _SystemTime.wHour
      TSTrace AddInfo _SystemTime.wMinute
      TSTrace AddInfo _SystemTime.wSecond
      TSTrace AddInfo _SystemTime.wMilliseconds
   ELSE
      TSTrace AddInfo _SystemTime
   END
   TSTrace EndInfo