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