TimeVal

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Get the time specified in seconds

Syntax

? oDateTimeFromVariant:TimeVal

Source

ACCESS TimeVal AS DWORD PASCAL CLASS TS_DateTimeFromVariant
LOCAL dwTimeVal AS DWORD
   TSTrace Enter
   IF SELF:IsValidObject
      dwTimeVal:=DWORD( SELF:_SystemTime.wHour*3600 ; ...
     ... +SELF:_SystemTime.wMinute*60+SELF:_SystemTime.wSecond  ; ...
     ... )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dwTimeVal:=0U
   END
   TSTrace Leave
RETURN dwTimeVal