Year

 (Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Get the year(s) value

Syntax

? oDateTimeFromVariant:Year

Description

Get the year(s) value

Returns

DWORD, Year

Example

? oDateTimeFromVariant:Year

Source

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