DateVal
(Available in 01 TS COM - TS_COM_DateTimeFromVariant)
Purpose
Get the date
Syntax
? oDateTimeFromVariant:DateVal
Source
ACCESS DateVal AS DATE PASCAL CLASS TS_DateTimeFromVariant
LOCAL dDateVal AS DATE
TSTrace Enter
IF SELF:IsValidObject
dDateVal:=ConDate( DWORD( SELF:_SystemTime.wYear ; ...
... ), DWORD( SELF:_SystemTime.wMonth ), DWORD ; ...
... ( SELF:_SystemTime.wDay ) )
ELSE
TSTrace Warning "!SELF:IsValidObject"
dDateVal:=NULL_DATE
END
TSTrace Leave
RETURN dDateVal