Second

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Get the second(s) value

Syntax

? oDateTimeFromVariant:Second

Description

Get the second(s) value

Returns

DWORD, Second

Example

? oDateTimeFromVariant:Second

Source

ACCESS Second AS DWORD PASCAL CLASS TS_DateTimeFromVariant
LOCAL dwSecond AS DWORD
   TSTrace Enter
   IF SELF:IsValidObject
      dwSecond:=DWORD( SELF:_SystemTime.wSecond )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dwSecond:=0U
   END
   TSTrace Leave
RETURN dwSecond