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